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THIS MANUAL. 



. • • . is the second in a series cf four 
voluires providing detailed infcriration 
about the IBK Disk Operating Systeir 
(DCS/VS) Logical IOCS prograirs. 
The four volumes are: 

Voluire 1 : General Inf crroaticn _arid 

Iirgeratiye Nacres , SY33-8559. 

Volume 2: SAM, SY33-8560. 

Voluire 3: DAM and ISAK, SY33-8561. 

Volume i\: VSAM, SY33-8562. 

This manual is irajorly intended for persons 
involved in program maintenance and for 
system programmers who are altering the 
program design. Program logic information 
is not necessary for the cperaticr cf the 
programs described. 

General routines that apply tc mere than 
one access method or mere than cne file 
type are described in Volume 1. These 
routines include open/close, 
checkpoint/restart, and a number of 
transient routines. References tc Volume 1 
are made whenever required fcr a gcod 
understanding of the topics discussed. 

This volume of the DOS/VS Logical ICCS 
Manuals consists of six parts: 

1. LICCS support for Unit Record files. 

2. LIOCS support for Magnetic Tape files. 

3. LICCS support for sequential DASD 
files. 

^. LICCS support for Device Independent 
files. 



detailed flowcharts associated with the 
descriptions in the first four parts. 



The appendixes in the tack cf this 
manual provide maintenance personnel with 
the service aids: 

1. Label list. 

2. Messages cross-reference list. 

Effective use of this publicaticr requires 
an understanding of IBM System/370 
operation and the Disk Operating System 
(DCS/VS) Assembler Language and its 
associated macro definition language. 
Reference publications fcr this information 
are listed below. 
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of the declarative and imperative macros, 
DTE tables, and initialization and 
termination procedures for each cf the file 
types described. Part 6 supplies the 
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IKTRODUCTICN 



This volume cf the DCS/VS Logical IOCS 
Logic Manuals contains detailed irfcriraticr 
on the logical ICCS support cf unit record^ 
iragnetic tape, sequential access Ei^SD, 
diskette, and device independent files. 



This voluire contains no general 
infoririation apart frorr a brief introductory 
description of each of the file types 
covered. If you want to get an overall 
view of the concept of logical ICCS, or an 
idea of the functions perfcrired by the 
imperative macros, refer to £OS/VS__LIOCS 
Volume 1, General Information and 
Imperative Macros, SY33-8559. Vcl\:me 1 
also contains descriptions cf the 
generalized open/close routines, 
checkpoint/restart routines, and EASD file 
protect, VTCC dump, VTCC display, and 
message writer subroutines. 

Information on all the logical IOCS 
items (modules, DTF tables, imperative 
macros, open and close routines, etc.) 
required for the particular file types 
discussed can be found in this manual. The 
only exceptions are certain commcn and 
special purpose routines which cannot be 
related to any specific file type or which 
apply to more than one file type; those 
routines are mentioned above. 

The files discussed in this vclume are 
divided into five parts: 

• Unit Record files. 

• Magnetic Tape files. 

• Sequential access DASD files. 

• Eevice independent files. 

• Eiskette files. 



Files within a given group are presented in 
alphabetic sequence according to the last 
two letters of the ETFxx macro that defines 
the file (that is, DTFCE, DTFCN, ... 
ETFFT). i^.ccess to information on a 
particular file type can he nade through 
the index. The information relating to a 
file type includes, in the order presented: 

• The file definition (ETFxx) macro. 

• The module generation (xxMCE) macro. 

• The imperative LICCS macrcs (GET, REAE, 
etc.) used with the file. 

• The special open and close routines, if 
applicable. 

• The special purpose routines, such as 
message writers, if applicable. 

Fart 5 certains the generalized and 
detailed flowcharts cf the imperative LICCS 
macrcs supported by each cf the data 
handling Icgic modules and the logical 
transients required for open, close, and 
ether special functions . 



The logic supportin 
imperative macros has 
macro language (source 
In some instances thes 
decision blocks to ill 
included in the module 
macro parameter option 
realize that these dec 
in an assembly listing 
particular assembly li 
cf these decisions bei 
the logic module is ge 



g each of the 

been flowcharted from 

statenent) listings, 
e flowcharts contain 
ustrate the logic 

for certain xxMCD 
s. You should 
isions do not appear 
, but rather that a 
sting is the result 
ng made at the time 
nerated. 
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UNIT RECORD FILES 



The IBM Disk Operating Systeir (DOS/VS) 
provides logical IOCS support for files on 
the following lEM devices generally 
categorized as unit-record equipirert: 



• 3881 Optical Mark Reader 



• 3886 Optical Reader 



125(D) Display Operator Ccnscle 

1C17 Paper Tape Reader 

1018 Paper Tape Punch 

1255/1259 Magnetic Character Reader 

1270/1275 Optical Reader/Sorter (These 
devices are not available in the United 
States) 

1287 Optical Readers 

1403 Printer 

1U19 Magnetic Ink Character Readers 

1442N1 Card Read Punch 

1442N2 Card Punch 

1443 Printers 

2245 Printer 

2501 Card Reader 

2520E1 Card Read Punch 

2520B2/E3 Card Punch 

254CR Card Reader 

254CP Card Punch 

2560 Multifunction Card Machine 

2596 Card Read Punch 

2671 Paper Tape Reader 

3203 Printer 

3210 or 3215 Console Printer-Keyboard 

3211 Printer 

3504 Card Reader 

3505 Card Reader 
3525P Card Punch 

3525RP Card Punch with read feature 



• 5203 Printer 

• 5425 Multifunction Card Unit 

The files used with these devices are 
defined by a DTFxx declarative iracro and 
the data handling IIOCS ncdule is 
generated, except for console files, by an 
associated xxMOD iracrc. (The DTECN 
declarative macro not only defines the file 
tut also provides the data handling logic 
irodule for console files.) 

The files described in this part 
include: 

• Card - card readers ard punches 

• Ccnscle 

• Optical Reader 

• Magnetic Ink character Recognition 

• Printer 

• Paper Tape 

• Optical Reader/Sorter 



INITIALIZATION AND TERMINATION 



Processing of a file by logical IOCS 
requires that the file be initialized, or 
opened, prior to the transfer of any data 
by the prcbleir prograir. Likewise, when the 
transfer cf all data is ccirplete, the file 
is closed. 

With the exception of rragnetic ink and 
optical reader files, which are bandied 
separately, all unit record files ar« 
cpened by the unit record open logical 
transient phase, $$EOUR01, fetched by the 
Open Monitor (refer to Vcluire 1). On the 
other hand, unit record files (except 
iragnetic irk character reader) require no 
special termination procedures and are 
closed by the Close Mcnitcr which siirply 
resets the open indicator in the DTF table 
fcr the file. 
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3504 Card Reader 

3505 Card Reader 
3525P Card Punch 

3525RP Card Punch with read feature 
3881 Optical Kark Reader 
5425 Multifunction Card Unit 



The files associated with these devices are 
defined by the DTFCD macro. 



DTFCC Macro 



Three types cf DTF tables can he generated 
by the DTFCC macro. The DTF table type 



generated for a particular file depends en 
the TYPEFLE= parair.eter specified by the 
user in the DTFCD iracrc. The three table 
types are: 



• DTFCD: Input (Reader) if TYPEFLE=INPUT 
(Figure 1) . 

• DTFCD: Output (Punch) if TYFEFLE=OUTPUT 
(Figure 2). 

• DTFCD: Combined if TyFEFLE=Ciy.END 

(Figure 3) . This paraireter can be 
specified for iaa2Nl cr 2520E1 reader 
punch, cr a 2540 punch with the punch 
feed read (PFR) feature. 

The generated DTFCD table contains 
information describing the file and serves 
as a linkage to the CD Icgic ircdule that is 
generated by a corresponding CDMCD macro. 
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^ ^ ^, 

Eytes I Bits | 

± JL- 



I 



Ccntents 



Functicn 



Eytes 40-47 as used for all files except 2560 and 5425 files. 



40-43 
(28-2E) 

44-47 
(2C-2F) 



LA &I0REG,C(14) 
NOP 

MVC 0(SBLKSIZE,13),0(14) 

NOP 

DC X'OOOO' 



Lead user pointer register, 



Mcve lOAREA to WORKA. 



The follovsing bytes (48-55) are added for 3504^ 3505^ and 3525 associated files. 



48-51 
(30-33) 



52-55 
(34-37) 



DC A (name) 
B 16(15) 
B 20(15) 
DC F'O* 

DC A(ASOCFLE) 



If ERR0FT=naroe2. 
If ERROFT=SKIP. 
If ERFCPT=IGNCRE. 
If ERROPT=cnitted, 

Address cf associated DIF tatle'', 
(3525 only). 



Eytes 40 onward as used for 2560 and 5425 files* 



40-47 
(28-2F) 

48-51 
(30-33) 

52-57 
(34-39) 



58-63 
(3A-3F) 

64-67 
(40-43) 

68-71 
(44-47) 



LA &IOREG,0(14) 
NOP C 

MVC 0(&BIKSIZE,13) ,0(14) 

NOP 

DC X'OOOO' 

CLC C(L,14),64(1) 



DC CV* • 

DC X«0C001C22' 

DC A (name) 
B 16(15) 
B 20(15) 
DC F'O' 



Stacker select CCW. 



wove ICAREA to WORKA . 



Test for erd-cf-file. 

L=4 if KODE=C; L=2 in other cases, 

End-of-file indicator if N.CDE=E. 
Ir other oases. 

If ERRCPT=raire2. 
If ERROPT=SKIP. 
If ERRCPT-IGNORE. 
If ERRCPT^crritted. 



The folloviing tytes are added for 2560 or 5425 associated files, 



72-75 
(48-4B) 

76-81 
(4C-51) 

82 
(52) 



DC A(ASOCFLE) 



MVC C(&BIKSIZE,14) ,82(1) 



DC SELKSIZE.C 



Address of associated DTF 
tahle^. 

Mcve card iirage to 
ICAREAl. 

Buffer for card image. 



h 



^CF.R only for 3504 and 3505. 

2ERR0PT for 2560, 3504, 35C5, 3525, or 5425 READ file. 
33504, 3505, and 3525 with or without CONTROI=YES specified. 
'♦2560, 3525, or 5425 with or without CONTRCL=YES specified. 
52560, 3525, or 5425 without CCKTRCL=YES specified. 
^Defaults to pocket2 for 35C4, 35C5, and 3525. 

"^Present only when 2560, 3525, or 5425 associated files are specified for the input 
DTF. 

Nuirfcers in parentheses are displacements in hexadeoiiral notation. 

Figure 1. CTFCC: Input (reader) (2 of 2). 
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r T T- 

Eytes I Bits I 



Ccnterjts 



Functicn 



32-33 I 
(20-21) I 

I 
3a-37 I 
(22-25) I 



j LR 12, (RECSIZE) 
I NOFR 

I 

I LA SI0REG,M(14) 

I NOP 



38 
(26) 



I 



0-2 I 
3 I 
^ I 

5 I 

6 I 
7 



39 
(27) 



I 
I 



I 

I 

I DC C 

I 
-JL 



I Undefined records only. 



I Lead i3ser pointer register. 

I 

I 

I Not used. 

I 1 = 5425. 

I 1 = 2560. 

I 1 = 3525. 

I 1 = iua2 or 2596. 

I 1 = 2520E1. 

I 

I Elank fcr eject last card. 

I 

-X 



Fcr all files except 2560 and 5425 files. 



aO-U7 I 

I 
48-55 I 



I 



I Punch CCW. 

I 

I Eject CCW fcr last card if 2520, 



Fcr 2540 files if CRDERR is specified. 



48-55 I 

I 

56- I 



I 
I 
I DC CL80' • 

-J. 



I Retry CCW. 

I 

I Save area card image. 



Fcr 3525 Punch/Interpret files. 



I 



I DC 64C« • 



48-55 I 

I 
56-63 I 



64- 



I 



I Lead CCW. 

I 

I Print CCW. 

I 

I Print buffer. 



JL JL 

Fcr 3525 Associated files. 


X 


48-51 1 1 DC A(ASOCFLE) 

X - JL- ^ -- - 


T ~ - - - 

1 Pointer to associated file. 

- X « _ _ 


For 2560 and 5425 files 

_ 


_ 



40-47 I 
I 
I 

48-55 I 

I 
56-63 I 

X- 



I 

I DC D'O' 

I 



I Eject CCW. 

I If FUNC=FP cr RPW. 

I 

I Stacker select CCW, 

I 

I P\;nch and Feed CCW. 



^The bucket bytes handle undefined records. 

^Valid for 3525 READ/PUNCH, PUKCH/PRINT, and REAC/PUKCB/PRINT files, 

^Valid for 3525 only. 

'♦Defaults to pocket2 for 3525. 

L 

Numbers in parentheses are displacements in hexadecimal notation. 
Figure 2. DTFCC : Output (punch) (2 of 3) 
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r T- 

I Eytes I 



Bits 



Ccntents 



I 



Function 



0-15 
(00-OF) 

16 
(10) 



17-19 
(11-13) 

20 
(14) 

21 
(15) 

22 
(16) 

23 
(17) 

2a-3i 

(18-lF) 

32-35 
(20-23) 

36-39 
(24-27) 

40-41 
(28-29) 

42-43 
(2A-2E) 

44-49 
(2C-31) 

50-55 
(32-37) 

56-59 
(38- 3B) 

60-67 
(3C-43) 

68-73 
(44-49) 

74-77 

(4A-4D) 

78-79 
(4E-4F) 

80-83 
(50-53) 



0-1 

2 

3 

4 
5-7 



X'OO' 



MVC 0(SBLKS,13) ,0(14) 



MVC 0(&OUEL,14) ,C(13) 



MVC 1(SOUEL-1,13),0(13) 



lyiVI 0(13),}<'4C' 



CCE. 



Net used, 

CCECL open; ignore cpticn. 

Net used. 

CPENF relocates DTF address constants. 

Net used. 

Address of logic module. 



DIF type, 



Coirirand code (X'02' for 1442, X'C2' for 
2520, 2540). 

Ccirirand code (X'Ol' for 1442, X'C9' for 
2520, 2540). 

Coirirand code (X'Ol' for 1442, X'09« for 
2520, 2540). 

CCW. 



Input area address. 



Output area address. 



Input blocksize. 



Output tlccksize. 



End-of-file address. 



Savearea. 



Constant (blanks) . 



Constant address (fcytes 78-79) 



Figure 3. DTFCD: Conifcined reader/punch file. 
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CDMCD: 



PUT Macro Charts AJ-AK 



Objective: To punch a card (ncriral cr 
coirfcined or associated files). 



Console files are neither opened nor 
closed by logical IOCS. 



Entry: Froir a PUT macro expansion. 

Exit: To the probleir. progran. 

Method: For regular output card files, the 
PUT routine punches the next sequential 
record in the file into a card. If 
WCRKA=YES is specified in the DTFCE and 
CDMCD macros, the record is built in the 
workarea and then moved to the appropriate 
output area before punching is performed. 
If I0AREA2=YES is specified in the DTFCD 
and CDMCD macros, overlap cf I/C and 
processing is possible by alternately 
switching output areas. (Dual I/C areas 
are not valid for associated files.) 

For combined files (1442 cr 25UC with 
PFR), I0AREA2 if it is specified, is used 
as the output area. If I0AREA2 is not 
specified, ICAREAl serves as both the input 
and the output area. 

For associated files, macro sequence 
checking is performed. The GET-PUT 
sequence must be maintained for these 
files. 

Punching of a card in a 256C cr 5425 
associated file can be initiated by: 

• PUT for the punch file if FUNC=RP. 

• PUT for the associated print file or GET 
for the next card if no printing is to 
be performed if FUNC=RPVv. 

• PUT for the punch file cr PUT fcr the 
print file if FUNC=PW. 



CCNSCLE FILES 



Console files (CN) are files asscciated 
with the system 3210 or 3215 ccnscle, cr 
with the Display Operator Ccnscle (Models 
115 or 125 only). A DTFCN macro defines 
these files as input, output, cr ccmbined 
files containing either fixed unblocked cr 
undefined records. Combined files can 
contain only fixed-length records. 



ETFCN Macrc 



logical IOCS suppcrt cf ccnscle files 
differs from other files. One macro, 
ETFCN, generates both the DTF table and the 
logic module (Figure 4). The Version 5 
ETFCN macrc generates both table and mcdule 
frcm statements contained in the source 
statement library. If TYPEFIE=INPUT is 
specified in the DTFCN macrc, the module 
generated supplies the logic for both the 
GET and PUT functions. If TYPEFLE=OUTPUT 
is specified, the generated mcdule supplies 
the logic for only the PUT function. If 
TYPEFLE=CMEND is specified, the generated 
mcdule supplies the logic fcr the GET, PUT, 
and PUTR functions. 



ETFCN: 



GET Macrc Chart AN 



Cb jective; To read frcm the system 
console, that is, to allow a record to be 
typed in frcm the ccnscle keyboard. 

Entry; Frcm a GET macro expansion to the 
label IJ2XXXXX. 

Exit: To the problem program. 



Method; Upon entry to the GET 
CCVi command code is set tc hex 
read operation. If UNDEF is s 
the RECFCRM= parameter in the 
the user specified ELKSIZE is 
the byte count area of the CCW 
is specified in the RECFCRM= p 
the ETFCN macro, the byte coun 
generated CCW automatically cc 
count of 80.) An SVC is the 
read the record into ICAREAl. 
workarea was not specified in 
macrc, ccrtrol returns tc the 
program immediately after ccmp 
I/C operation. 



rcutine, the 
•OA' for a 
pecified in 
ETFCN macro, 
mcved into 

(If FIXUNE 
arameter in 
t area of the 
ntains a 
n issued to 

If a 
the ETFCN 
problem 
letion of the 



If WORKA=YES is specified in the DTFCN 
macro, the contents of ICAREAl are mioved to 
the workarea before ccntrcl returns tc the 
problem program. 
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DTFCN: 



PUT Macro Chart AF 



Exit; To the probleir prcgrair. 



Objective: To vwrite a reccrd en the systeir 
console printer. 

Entry; Froir a PUT macro expansion to the 
label IJPTxxxx. 

Exi t; To the probleir prograir. 

Metho d; Upon entry to the PUT routine, the 
CCW coniniand code is set to hex '09' for a 
write operation. If a workarea and 
TYPEFLE=OUTPUT are specified in the DTFCN 
macro, a test determines if a previous I/O 
operation is complete. If net, an SVC 7 is 
issued. On a combined I/O cperaticn 
(TYPEFLE=INPUT) with a workarea specified, 
this test is bypassed. 

If the file definition specifies 
undefined records (RECFORM=UNDEF parameter 
in the DTFCN macro) a check is made to 
determine if the BLKSIZE is greater than 
the record length, RECSIZE. (The byte 
count in the generated CCW is autcmatically 
equal to the BLKSIZE specified by the 
user.) If EIKSIZE is greater, the CCW byte 
count is modified to the value of RECSIZE. 

Note; If RECSIZE is greater than EIKSIZE, 
the output record is truncated. 

In all cases where a workarea is 
specified, the record is moved from the 
workarea to lOAREAl before an SVC C is 
issued to write the record on the console 
printer. If TYPEFLE=OUTPUT is specified, 
control returns directly to the problem 
program. Otherwise, a test determines if a 
previous I/C operation is complete . If 
not, an SVC 7 is issued. 

If no workarea is specified, the record 
to be written is available in ICAREAl, and 
an SVC is issued directly. The routine 
then waits for completion of the I/O 
operation before control is returned to the 
problem program. 



Method; The PUTR macro processes 
fixed-length unblocked records only. 
Depending en whether cr ret a workarea is 
specified, one of the following methods is 
i:s€d; 

3- No wor karea sp ec ifie d. When the PUTR 
routine is entered, register 14 is 
saved and a branch is made te the PUT 
routine. INPSIZE and the input address 
are moved into the CCW and control is 
passed to the GET routine. The output 
area address and ELKSIZE are then 
restored in the CCW. The action bit in 
the CCW is turned off, register 14 is 
restored, and control is passed to the 
user. 



Worka rea speci fied . When 
routine is entered, regist 
saved and a branch is made 
routine. The contents of 
saved and that register is 
the input workarea address 
and EIKSIZE in the DTFCN a 
interchanged. BIKSIZE and 
of the output area are the 
the CCW. The CCW action b 
off, register 14 is restcr 
control is passed to the u 



the PUTR 
er 14 is 

to the PUT 
recister is 

loaded with 
. INPSIZE 
re 

the address 
n restored to 
it is turned 
ed, and 
ser. 



M/V.GNETIC INK CHARACTER RECOGNITICN FILES 



Magnetic Ink Character Reccgniticn (MICR) 
files are input files processed by 
1255/1259/1419 magnetic ink character 
readers, cr 1270/1275 Optical 
Reader/Sorters. MICR type files are 
defined by a DTFMR macro and the processing 
Icgic module is generated by an associated 
MRMOD macro. 



DTFMR Macro 



DTFCN; PUTR Macro Chart AQ 



Obje ctiv e; To write a message tc or read a 
message from the console keyboard. 

Entry; Form the PUTR macro expansion. 



The DTFMR Macro can generate two types of 
DTF tables (Figure 5). The type generated 
for a particular file depends on the 
ADDRESS= parameter specified by the user in 
the DTFMR macro. Although the two table 
types have been combined in this 
publication, the variation ir the entries 
for ADDRESS=DUAL are noted in the table. 
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r T T- 

I Bytes JEits | 

^ + + ^ 

uo-ai 

(28-29) 



Function 
Length cf CTF tatle. 



Device type indicator. 



Record type. 



Reserved for future use, 



I/C register. 



End-cf-file address. 



I0AREA2/1 address. 



Docuirent tuffer size, 



Blocking factcr/Kuirber of buffers. 



I/O area size. 



Record length. 



Sense infcriration. 



Supervisor sviitch. 



Logical class and unit nuirfcers (secondary — for DUALJ 
addressing only). 

Register alignirent bytes. 



Logical class and unit nuirbers (priir.ary — for DUAL 
addressing) , 

Docuirent buffer size. 



Coirirand cede (4C). 



Address cf last byte cf first docuirent buffer. 



Coimrand code (4C). 



Address cf last byte of last dccuirent buffer. 



142-^3 
(2A-2B) 

(2C-2D) 

|a6-U9 
(2E-31) 

50-51 
(32-33) 

152-55 
(3a-37) 

56-59 
(38-3E) 

160-63 
(3C-3F) 

64-65 
(40-41) 

166-67 
(42-43) 

68-71 
(44-47) 

172-76 

(48-4C) 

77 

(4D) 

178-79 
(4E-4F) 

80-81 
(50-51) 

182-83 
(52-53) 

84-87 
(54-57) 

188 
(58) 

89-91 
(59-5E) 

192 
(5C) 

93-95 
(5D-5F) 

I X JL J 



Figure 5. DTFMR (2 of 4) 
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I Eitsj 



i Bytes 



Functicn 



192-199 
(C0~C7) 

200-207 
CC8-CF) 

208-215 
(D0-D7) 

216-223 

(D8-DF) 

224-231 
(E0-E7) 

232-239 
(E8-EF) 

240-247 
(FC-F7) 



CCW - Stacker Select, 
CCW - TIC. 

ccw - Control. 

CCW - BN. 
ccw - Read. 
CCW - Sense. 
CCW - Disengage. 



For DUAl i^ddj^ess Adapter 



16C-167 
(A0-A7) 

168-175 
(A8-AF) 

176-183 
(E0-B7) 

184-191 

(E8-BF) 

192-199 
(C0-C7) 

200-207 
(C8-CF) 

208-215 
(D0-D7) 

216-223 

(D8-DF) 

224-231 
(E0-E7) 

232-239 
(E8-EF) 

240-247 
(F0-F7) 

248-255 
(F8-FF) 

256-263 
(100-107) 



CCW - Engage. 



CCW - Read Buffer 1, 



CCW - Sense. 



CCW - NOP. 



CCW - Read Buffer 2. 



CCW - MOD Sense, 



CCW - Read Buffer 1. 



CCW - MOD Sense, 



CCW - TIC to NCF. 



CCW - NOP, 



CCW - MOD CTI, 



CCW - Stacker Select, 



CCW - MOD Sense, 



Nunifcers in parentheses are displaceirents in hexadeciiral rotation • 
Figure 5. DTFMR (4 of 4). 
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Entry; Froir. a GET macro expansion to the 
label IJUGETCK. 

Exit; To the problem progran after a 
document buffer is filled with a stacker- 
selected document, or after errcr 
conditions are posted in the buffer. 

Method; When more than three reccrds 
remain in the document buffer area, the 
user's I/O register (ICREG) is leaded with 
the address of the next document buffer to 
be processed and the previous document 
buffer is reset to binary zeros. Control 
then returns to the user. 



procedure fcllcwed is the sane as for more 
than three records remaining in the I/C 
area. If the document buffer is not ready 
for processing, checks are made fcr errors 
and flags are set in the buffer as 
indicators of the error conditions found. 
This infcrmaticn is then passed tc the user 
for further analysis. 



KRKCCj 



KEP.B Macro Charts EA-BE 



When three, or fewer than three, records 
remain in the document buffer area, a test 
determines if three or more document 
buffers are empty and it is necessary tc 
engage the MICR type device to feed more 
documents. If it is necessary tc issue 
engage commands^ a branch is made to 
IJUENGCK where the necessary mcdif icaticns 
are made to the CCW chain and the I/O 
operation executed. 

If an engage is not required cr after 
the engage commands are issued, the status 
of the document buffer is checked. If the 
buffer is ready for processing, the 



1. To provide a pointer, in the user 
register ICREG, tc the next cccument 
buffer to be processed in the document 
buffer area (figure 6). 

2. Tc issue engage commands tc the MICR 
type device when necessary. 

Entry ; From a READ macrc expansion to the 
label IJUREAD. 

Exit; Tc the problem prcgran after a 
document buffer is filled with a 
stacker-selected document, cr after error 
conditions are posted in the buffer. 



Document 

Buffer 

Area 



Document 
Buffer 

(lOREG) 




Error 
Info. 

I 1 



Sense 
Info. 

2 13 



4 I 5 



L 



Additional User 
Buffer Area 
ADDAREA 



Document Data Area 

(Record) 

RECSIZE 



Pocket Document Selected Into 



"Stacker-Select Pocket Requested by User 
'Error Indicators (Device Sense Information) 



'Batch Numbering Update 



-Document Buffer Status indicators: 
Hex 02 : Closed 
Hex 04 : Wait 

Hex 06 : Intervention Required 
Hex 10 : Unit Exception 
Hex 20 : Unrecoverable I/O Error 
Hex 40 : Recoverable I/O Error (reject) 
Hex 80 : Buffer Ready for Processing (BSI bit) 



Figure 6. KICR buffer format (1255/1259/1270/1275/1419). 
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MBMCD: 



DISEN Kacro Chart ED 



Objective: lo disengage the 1255/1259, 
1270/1275, cr 1419 MICB type device and 
step the feeding of documents whenever 
necessary. 

Entry: From a DISEN macro expansion to the 
label IJUDISEN, 

Exit; To the problem prograir. 

Wethod: The DISEN macro turns en the user 
disengage indicator (bit cf byte 21) in 
the DTF and checks for the type cf address 
adapter used with the device. If dual 
addressing is specified, the NCF 
instruction in the CCW chain is changed to 
a disengage instruction, X'DF'. If single 
addressing is specified, the chaining bit 
is set on in the CCW chain. 



If the file currently being tested is 
net operational, the address cf the DTF 
table for the next file specified in the 
nacre eperand is obtained and the tests are 
repeated fer the next file. 

If nene cf the files specified in the 
eperand are operational, an SVC 29 is 
issued and the wait state is entered. If 
the system is operating in an WFS 
environment, processing is allowed to 
centinue ir anether partitier. v;hen ene of 
the files becomes eperatienal, prccessing 
can resume in the partiticn in which the 
device is operating. 



Initializaticn and Terminaticn cf MICRType 
Files 



Note: A DISEN macro must be issued before 
a LITE macro can be issued. 



MRMCD: 



WAITF Macro Chart ED 



Objective; To test whether any 1255/1259/ 
1270/1275/1419 MICR devices specified in 
the macro operand (wait list) are operative 
and processing should continue, cr if all 
the devices specified are inoperative and 
IOCS should enter the wait state. 

Entry; Fromi a WAITF macro expansion tc the 
label IJUWAITF. 



Optical Reader/Sorter and Magnetic Ink 
Character Recegnition files are some of the 
very few types of unit record files that 
are opened and closed by logical transients 
included in the system tc handle a specific 
file type. These logical transients, 
$$ECMR01 and $$BCMR01, are fetched by the 
Cpen and Close Monitors respectively (refer 
tc Volume 1) . 



$$ECMRC1; Open MICR Type Files Chart EE 



Cbjectiye: To open 1255/1259/1270/1275/ 
1419 MICR type files and tc initialize the 
dccument buffer area. 



Exit; To the problem program. 

Method; The WAITF macro leads a work 
register with the address cf the ETF table 
for the file specified by the first 
operand. Tests are then m.ade tc determine 
if the file is in an operative condition. 
If the file is operative and ready, 
processing is resumed at the next 
sequential instruction following the macro 
expansion. 



Note; When more than one fi 
in the operand of the WAITF 
list), normal processing is 
the first operational file i 
thereby omitting checking of 
files in the wait list. Tc 
this, the pointer in the wai 
repeatedly incremented by 4 
each operand) until the end 
list is reached (the first n 
When the end-of-the~wait lis 
detected, the pointer (regis 
contains the address of the 
instruction following the ma 



le is specified 
macro (wait 
resumed after 
s detected, 

any remaining 
accomplish 
t list is 
(the length of 
of the wait 
cnzerc byte) . 
t has been 
ter 14) then 
next sequential 
ere expansion. 



Entry; From the Cpen Monitor, $$E0PEN1, to 
the label FRSTINST. 

Exit; To the TES preeesscr, $SECPEN. 

Method; The $$BOMR01 routine clears the 
entire document buffer area and checks for 
device assignment. It then calculates the 
Physical Unit Block (PUB) entry address for 
the device, and determines from the PUB 
infermatier which entry in the Supervisor 
table of DTF addresses (PDTAEB) is to be 
used. The address of the DTF table is then 
inserted into the proper entry in the 
PDTAEB table. Refer tc DCS/VS Supervisor, 
SY33-8551, for the format and use of the 
PDTAEB table. 

The unit exception bit in the COB is 
turned en and the remainder cf the DTF is 
initialized. The open indicator (bit of 
byte 30) is set on in the DTF to signal 
that the file is open and the TES 
Preeesscr, S$EOPEN, is fetched tc determine 
if mere files are to be opened. 



Unit Record Files 33 



J. ^ ^- 

I Eytes lEits | 



Functicn 
Duirmy CCE. 



Not used. 

COBOL open; ignore option. 

Not used. 

DTF table address constants 

relocated ty CFENR. 

Not used. 

Address of logic irodule. 



DTF type, (X'09M. 

DTF type, CX'CA* if HEADER=YES) , 

PIOCS switches. 

1 = Open; = Closed. 

1 = Input. 

1 = Contrcl. 

1 = Device is 1287. 

1 = Header. 

Reserved fcr future use. 

1 = RDLNE. 

Not used. 

Not used. 



Not used. 

1 = LIOCS posts a hopper eirpty ccnditicn tc DTF, 

CCB. 



Sense CCW, 



Lost lines (equipirent check) 



After 9 retries for journal tape, or after 
2 retries for dccuirents. 



0-15 
(00-OF) 

16 
(10) 



17-19 
(11-13) 

20 

(la) 

21 
(15) 



22 
(16) 

23 
(17) 

24-39 
(18-27) 

40-47 
(28- 2F) 

48-51 
(30-33) 

52-55 
(34-37) 

56-59 
(38-3E) 

60-63 
(3C-3F) 

64-67 
(40-43) 

68-71 
(44-47) 

72-75 

(48-4E) 



0-1 
2 
3 
4 



5-7 



0-6 
7 



Wrong length records. 



After 4 retries for journal tape, or after 
2 retries for dccuirents. 



Keyboard corrections. 



Count of data check errors. 



Lines marked. 



Figure 8. DTFCR (1 of 3) 
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I Bytes I Hits I 



Function 



h + + 



1130-131 
I (82-83) 

I 

1132-133 
I (8a-85) 

I 

|13a-135 
I (86-87) 

L X X J 

Numbers in parentheses are displaceirents in hexadecinal rctaticn. 
Figure 8. DTFOR (3 of 3). 



LR &RECS,13 
LR gI0R^13 
Sense. 



CRMCD Macro 



The irodule generated by the CRMCE iracrc 
provides the logic to per fern the GET, 
CNTRL, and RELNE functions for the 1287 
(tape mode) optical reader , and the READ, 
WAITF, CNTRL, RESCN, and DSPLY functions 
for the 1287 (document mode) optical 
reader. 

For 1287 operating in document mode, the 
logic module handles only unblocked 
records, and supports fixed and undefined 
record formats. Blocked records are also 
handled if the device is operating in tape 
mode. 

The ORMCD is capable of generating many 
logic modules, each tailored to specific 
param.eters. The number of different 
modules that can be generated is sc great 
that it would be impractical to flowchart 
and describe every possible variation 
individually. To stay within practical 
limdts, the internals of the OR module are 
flowcharted and described to indicate all 
variations. 



Exits: 



CRMCD: 



CNTRL Macro Charts EG-EH 



Objective; To execute a control operation 
for 1287 optical reader. 

• When operating in tape mcde, the control 
operation is either mark a line or read 
a complete line from the keyboard. 

• V^hen operating in docum.ent mcde the 
control operation is either eject, eject 
and stacker-select, stacker-select, or 
increment the document. 

Entry; From a CNTRL macro expansion. 



Normal exit from the CNTRL routine is tc 
the problem, program. 

To the user's end-of-file routine when 
an EOF ccnditicn is reached. 

Tc the user's ccrrecticn routine when a 
recoverable error occurs. 



Method; The CNTRL rcutire ensures that any 
previous I/C operation is complete. It 
then sets the appropriate cortrcl command 
code (supplied by the user in general 
register 0) in the CCW and causes the 
ccntrcl furcticn tc be performed. 

If the control furcticr is tc read a 
line from the keyboard, the routine checks 
for a unit exception after the read 
operation is complete. If the control 
function is other than read a lire from the 
keyboard, and a unit check occurs, the 
routine checks for ccmmard reject, late 
stacker-select, or recoverable errors. 

If a unit exception or a read keyboard 
cperaticn occurs, or if a recoverable type 
error occurs, the CNTRL routine tranches to 
the address supplied in the CTF for the 
user's correction routine to attempt a 
recovery from the error before returning 
control tc the problem program. 



CRMOE: GE T Mac ro Charts EJ-EN 

Cbjective; To access a record from the 
1287 (tape mode) optical character reader. 

Entry; From the GET macro expansion. 

Exit; To the problem prcgram. 
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Exit: To the user-specified CCREXIT 
routine if a read error occurred cr to the 
next sequential instruction following the 
WAITF macro expansion in the prcbleir 
program if read was error-free. 

Method; After checking for coirpletion of 
the'previous I/O^ the routine tests for 
unit check. If unit check occurred, a 
check is made tc deteririne if the cause cf 
the interrupt is due to hardware or an 
unreadable character, lost line, etc. If a 
hardware error has occurred, a transient 
errcr routine is called, and a iressage is 
printed to the operator. If the error is 
due to an unreadable character cr line, it 
is retried up tc nine times (depending on 
errcr), posted to the user and then a 
branch is taken to the user's CCBEXIT 
routine. On a return from CCREXIT, the 
operation is restarted from where the CCW 
chain was broken. Control is then returned 
to the problem program. 



DFR and DLINT Macros 



The DFR and DLINT macros are used to build 
the format record that is required tc read 
from the 3886 optical reader. 

The DFR macro builds the first part of 
the format record, called the Dccunent 
Information Record (Figure 9); it also 
generates two fields preceding the format 
record to provide information about that 
record. The first field is eight bytes 
long; when the field is opened cr when the 



SETDEV macro is issued it contains the name 
cf the format record. The second field is 
a twc-byte binary field that contains the 
total length of the format record plus the 
twc preceding fields. These two fields are 
not part of the format record and therefore 
ret included when the format reccrd is 
loaded into the 3886 ccntrcl unit. 

The DIIKT macrc builds the fcllcwing for 
each line described: 

• A line information reccrd tc describe an 
individual line (Figure IC) . 

• A field infcrmaticn reccrd that 
describes an individual field on the 
line that is tc be seamed (Figure 11). 

• A field infcrmaticn reccrd that 
describes an individual field on the 
line that is not to be scanned (Figure 
12). 

• A sync byte of X'FF* tc indicate the end 
cf the ELINT expansion. 

In generating these records, the DLINT 
macrc calls an inner macrc (CLINTIN) 15 
times to generate all fields on the line 
except the last field that is not to be 
scanned. The field information record for 
this last field is generated by the DLINT 
macro. 

Figure 13 shows how the DFR and DLINT 
expansions combine tc fcim a format record. 
An extra sync byte is generated tc indicate 
the end cf the format reccrd. 
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r T T- 

I Eytes I Bits | 



Contents 



Functions 



Address or character 








|B'0' 
|E'l' 


1 




|B'l' 


2- 


•4 


lE'OOO- 


5- 


-7 


IB'OOO' 

B'OOl' 

|B*010' 

iB'Oll' 

IB'IOO' 

IB'lOl' 
1 







B'l* 


1- 


•7 


1 


0- 


-3 


1 

IB'OOOC 


4- 


•7 


IB'OOOO' 
IB'OOOI' 
IB'OOIO' 
IB'OIOI' 
B'OllO' 
IB'lOOl' 

IB'IOII* 
lE'llOO' 
IB'IIOI' 
IB'IIIO' 



Address cf the right end cf the field in BCD 

cr 

Hex cede cf character used as field deliiriter. 



Byte represents character deliniter. 

Byte represents address. 

Indicates that the field is a critical 

Not used. 

Suppress high/lcvv tlanks - lev? fill. 

Suppress high/low tlanks - high fill. 

Transirit all fclanks - low fill. 

Suppress all blanks - no fill. 

Suppress all fclanks - low fill. 

Suppress all blanks - high fill. 

Enable character edit for this field, 
field lergth. 



Not used. 
Field is 
Field is 
Field is 
Field is 
Field is 
Field is 
Field is 
Field is 
Field is 
Field is 
Field is 



field. 



net to be scanned. 

irark read A font. 

rrark read B font. 

nuireric E fcnt. 

alphanuireric B font (irode 1). 

nuireric A fcnt. 

alphanumeric A font (Kode 1). 

alphanumeric A fcnt (node 2). 

NHP. 

Gothic (irust have NHP feature). 

NHF (lov? sub) . 



Figure 11. ELINT macro instruction expansion - field infcriraticn record for a 
scannable field. 



J, ^ ^- 

I Bytes I Bits | 



-T- 
I 



Contents 



Functions 



|. 4 + + 





1 

2-3 



C |B«1' 

1-7 lE'OOOOOOO' 



L ± J.« 



IX'OOOO' 



I Address cf the right end cf the field in BCD. 

I 

I Byte represents an address. 

I Not used. 



I Not used, 
-JL 



. J 



Figure 12. DLINT macro instruction expansion - field infcriraticn record fcr a field 
that is not to be scanned. 
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DR^3CB: CNTRL Macro Chart CA 



EFMCE: SETDEV Macro Chart CE 



Objective: lo execute one cf the fcllcwing 
operations fcr the 3886 optical reader. 

• Page mark current dccuir.ent when the 
document is ejected. 

• Line mark indicated line vihen the 
document is ejected. 

• Eject/stacker select the current 
document. 

Entry: From the CNTRL macrc expansion. 

Exits: 

• Normal exit from the CNTRL routine is to 
the problem program. 

• To the user's end-of-file rcutire when 
an EOF condition occurs. 

• To the user's COREXIT routine when an 
error occurs. 

Method: The CNTRL routine sets up the 
field address and the length ccunt in the 
CCW. If the CCW command is eject or 
stacker select, the routine builds a 
one-byte field to be passed to the 3886. 
The control CCW is then executed. When the 
I/O operation is completed, the rcutine 
checks for unit exception. If unit 
exception occurs, control is passed to the 
user's EOF routine. The routine then 
checks to see if any errors cccurred. If 
an error occurred, it is posted to the user 
and control is passed to the user's COREXIT 
routine. On return from the CCREXIT 
routine, control is passed tc the prcbleir 
program. 



Cb jectiye: Tc allow the user tc change the 
format record in the 3886 ccrtrcl unit. 

Entry; From the SETDEV iracrc expansion. 

Exits; 

• Ncriral exit from the SETDEV rcutine is 
tc the prcbleir prcgran. 

• Tc the user's end-cf-file rcutine if an 
EOF condition occurs. 

• To the user's CCREXIT rcutine when an 
error occurs. 

Method: The SETDEV routine checks to see 
if the fcrirat record tc be leaded from the 
3886 control unit is in the format record 
area ir the DTF. If sc, the routine sets 
up the load fcrmat reccrd CCVi with the 
format reccrd length and the fcrirat record 
address ir. stcrage. The rcutine then 
executes the CCW. If the format record is 
ret in the format reccrd area cf the DTF, 
the routine loads the format reccrd from 
the core image library. The rcutine then 
checks tc see if the fcrnat reccrd has the 
proper length. If sc, the rcutine issues 
the load fcrmat reccrd CCVi tc load the 
fcrmat reccrd to the 3886 control unit. If 
any errors occur while this CCW is 
executed, they are posted to the user and 
control is passed to the user's CCREXIT 
routine. Upon return from the COREXIT 
rcutine, ccntrcl is passed tc the prcblem 
program. 



ERMCD: 



WAITF Macro Chart CE 



DRMCD: 



READ Macro Chart CA 



objective: To access one line cf data from 
the 3886 optical reader. 

Entry: From the READ macro expansion- 
Exit: To the problem program. 

Method; The READ routine reads a line cf 
data from a document by first executing a 
scan CCW which scans one line cf data and 
places that line in the 3886 buffer. A 
read CCW is then issued which reads the 
data into stcrage. 



Objective : Tc wait fcr I/C completion, tc 
check for end-of-file conditions, and to 
indicate tc the user if any errcrs have 
cccurred. 

Entrj^: Frcm the WAITF macrc expansion. 

Exits: 

• Ncrmal exit frcm the WAITF rcutine is tc 
the prcblem program. 

• Tc the user's end-of-file routine when 
an EOF condition occurs. 

• Tc the user's CCREXIT rcutine when an 
error occurs. 

Methcd: After checking fcr completion of 
the previous I/O cperaticr, the rcutine 
moves the header reccrd (2C bytes) to the 
address specified in the header parameter 
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r 


*"T """"" ~ '^ "*T """""" " 




T 


*'~*~~'~'~"^~~"~*""~'~~""~"~'~"*'~~'^"^'-'"^~~"~~'^~"~~~ — "-• — — " — ^ "-•-••-- ~~ 


1 Eytes 


1 Hits 1 


Contents 


1 


Function 


h 


-+ + 









ao-43 

(28-2B) 

U4-a7 
(2C-2F) 

48-51 
(30-33) 

52-55 
(34-37) 

56-63 
(38- 3F) 

64-71 
(40-47) 

72-79 
(4 8-4F) 

80-87 
(50-57) 

88-95 
(58-5F) 

96-99 
(60-63) 

100-103 
(64-67) 

104-107 
(68-6E) 

108-111 
(6C-6F) 

112 
(70) 



X'OOOOOOOO' 



Not used- 



Start address cf FB area in ETF. 



Address cf fcur-byte pointer at the end 
cf the FF area in the DTF, 

EOF rcutine address. 



Scan COW, 

Read CCW. 

Read CCW. 

control CCW, 

Load forrrat record CCW. 

COREXIT rcvjtine address, 

lOAREAl area address. 

Header area address. 

Exit indicator address. 

Start cf FR area. 



Figure 14. DTFDR (2 of 2). 



Initialization and Teririnaticn cf Cj^tical 
Reader Files 



Optical reader files are opened t^ the 
logical transient $$ECCR01 that is fetched 
by the Open Monitor (refer tc Vclune 1). 
These files are closed by the Close 
Monitor, $$ECLCSE, which siirply resets the 
open indicator in byte 21 of the CIF table. 



^^ECCROlj^ Cpen Optical Reader Chart CC 



Objective; To open an optical reader file. 



Entry; Frcir the Open Wcritcr ($$ECPEN1) . 

Exit: To $$BOFEN or cancel. 

y.ethcd *: ,1287; If the optical reader file 
contains a header, this phase reads it into 
ICAREAl. If it does net contain a header, 
an I/O NCF is perforired. 

If a valid DTF type is found (indicating 
the presence or absence cf the header) , the 
routine returns tc the Open Ncritcr 
($$ECPEN) to deteririne if any ircre files 
reed tc he opened. The rcutine aborts the 
jot if an invalid DTF type is present. 

Method - 3886; This phase opens the file 
and loads^'the forir.at record frcir disk intc 
the ETF. If the fcrirat record is vwithin 
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I Eytes I Eits | 



-T- 

I 



Contents 



Function 



0-15 
(CO- OF) 

16 
(10) 



17-19 
(11-13) 

20 

(la) 

21 
(15) 





1 

2 
3 

^ 

5-7 



X'08« 
X«07' 



CCE. 



l=2-line printer^,**; 0=oth6r, 

1=ERRCPT3 , *• ; 0=oir.itted • 

CCEOL open; ignore option. 

1=3525; C=other, 

CPENB relocates ETF address constants, 

000=PRIN1 only 

C11=FUNCB/FBINT3 

010=READ/PFINT3 

101=RE7VD/PUNCH/PBIKT3 

Address cf logic ircdule. 



ETF type. 

DTF type for 2560 and 5425. 

1 = Open; = Closed. 

First tiire s\(sitoh. 

1 = Control character. 

1 = Fixed unblocked records. 

1 = Variable unblocked records, 

1=2 I/C areas. 

1 = Workarea. 

1 = Print overflovv channel 9. 



For printer and card punch devices 



22 
(16) 

23 
(17) 

24-27 
(18- IB) 

28-31 
(IC-IF) 

32-33 
(20-21) 

34-37 
(22-25) 

38-39 
(26-27) 

40-47 
(28-2F) 

48-55 
(30-37) 



X«09' 



X'09* 



DC A(IOAREAl+x) 



LR 12, (RECSIZE) 
NOPR C 

LA SICREG,4(14) 
NOP 



11,*,X«60\1 
9,ICAREA,X'20' ,121 

9,IOAREA,X'20' ,121 

A (Name) 

DC A(ASOCFLE) 



Normal ocirirand code^. 



Control ccirirand code^, 



Address of data in lOAREAl. 



Eucket.^ 



For undefined records only. 



Cnly if ICREG=(r) 



Bucket. 2 



CCW — Set up Selective Tape List Control^, 
STLIST not specified. 

CCW — STLIST specif ied®. 

Address cf user error routine (3211 cnly), 

If ASCCFLE=fil€naire3. 



For the 2560 and 5425 Multifunction Card Kaohine 



-T 

|X»00' 



IB'HHHHHHOO' 



22 
(16) 

23 
(17) 



JNot used. 
I 

I 



[Print head selecticn byte. 

I H=l specifies the corresponding head, 

-X . 



Figure 15. DTFPR (1 of 2) 
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PRMCD Macro 



The irodule generated by the FRNCD iracrc 
provides the logic to perforir the CNTRL, 
PRTCV, and PUT functions for a printer 
file. The logic niodule handles only 
unblocked records, and supports fixed, 
undefined, and variable record forirats. 

The PRMCD macro can generate irany logic 
irodules, each designed to handle the 
conditions specified by the iracro 
parameters. Because it is net possible to 
describe all the variations, the PRMOD is 
flovvcharted to show the internal decisions 
made for the specified parameters. 



PRMCD: 



CNTRI Macro Chart CD 



y.ethcd; The PRTOV (printer overflow) macro 
instruction is used with a logical printer 
file to specify the operation to be 
performed en a carriage overflow condition. 

PRTCV requires two parameters. The 
first parameter must be the name of the 
logical file specified ir the DTF header 
entry. The second parameter must specify 
the number of the carriage tape channel (9 
or 12) used to indicate the overflow 
condition. When an overflow condition 
occurs, ICCS skips the printer carriage to 
channel 1. 

An optional third parameter causes a 
branch to a user routine instead of a skip 
to channel 1 on an overflow condition. 
This parameter specifies the symbolic name 
representing the address of the user's 
routine. In the user's routine, any 
desired furcticn can be performed except 
another PRTCV. 



Objective: To control the carriage space 
and skip operations or the 3211 character 
folding. 



PRMCD: 



PUT Macro Charts CF-GG 



Ent ry; From a CNTRL macro expansion. 

Exit: To the next sequential instruction 
in the problem program following the CNTRL 
macro expansion. 

Method; This routine provides completely 
independent control of the printer 
carriage. It also controls UCSE character 
folding on the 3211. When FCLD is 
specified, bits and 1 of the byte to be 
printed are assumed to be ones. The FCLD 
and UNFOLD parameters permanently override 
the previous fold condition. It is used 
when the PRMCD macro parameter CTLCHR is 
not specified. 

The PRMCD CNTRL routine waits for a 
previous I/C operation to finish and then 
inserts the control character into the CCW 
command code. The required carriage 
operation is started and control returns to 
the problem program without waiting for 
completion of the carriage operation. 



PRMCD: 



PRTCV Macro Chart CE 



To cause and control an 
overflow skip. 

Entry; From, a PRTOV macro expansion. 

Exit; To the user's carriage cverflow 
routine if the address of the routine is 
supplied, or to the problem program at the 
next sequential instruction following the 
PRTCV m.acro expansion. 



Cb jective; To print a line and space, or 
to print a line and skip the appropriate 
tape, if the Selective Tape lister feature 
is available. 

Entry; From a PUT macro expansion. 

Exit; To the problem program or cancel. 

Method; This routine causes a record to he 
printed on the output device. The logic 
determines if two I/C areas are used, if a 
workarea is specified, and if CTLCHR 
controls the carriage. ^. test is made to 
determine if CNTRL is specified. If so, 
the CTLCHR cannot be used; CTLCHR and CNTRL 
are mutually exclusive (if ore is used, the 
other cannot be specified). 

If the CTLCHR=ASA cpticn is used, this 
routine translates the control character to 
EECDIC. 

If associated files are used, macro 
sequence checking is performed. Printing 
(PUT to a print file) may be omitted. 

For 2560 and 5425 associated files, the 
print module initiates the read and/or 
punch command of the associated read and/ox 
punch file processed by a CDMCE. 

If the Selective Tape List feature is 
used (14C3 only), selected tapes are 
controlled through the use of a cne-hyte 
control field. This field is accessed by 
the optional operand, either STLSP=label, 
cr STLSK=label, of the PUT macro. Figure 
16 shows the format of the field specified 
by label. 
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r 1 

1 Eytes 

L^ . 


r T 

contents | Function 

.—-.-.-.-. —- ... J 


r 

1 0-15 j 
1 (00-OF) 







CCE (X'08' in byte 2). 


1 16 
1 (10) 


X'20' 
X«08* 




CCECL open; ignore option, 

CPEKR relocates DTF address constants . 


1 17-19 
1 (11-13) 






Address of logic irodule. 


1 20 
1 (14) 


X'Ol' 




CTF type. 


1 21 
1 (15) 






Eit CPEK indicator. 

1 TWO I/O areas. 

2 EOF indicator. 

3 Read error. 
1 4-6 Kot used. 

7 Undefined record. 


1 22-25 
1 (16-19) 


KVl 26(1), X' 
NOP 0(0) 


07 » 


NOP first SVC if 2 areas. 
1 If 1 area. 


1 26-27 
1 (lA-lE) 


SVC 




1 Read a record. 


1 28-29 
1 (IC-ID) 


SVC 
NCPR 




Read another record if 2 areas. 
1 If 1 area. 


1 30-31 
1 (lE-lF) 


LR &RECSIZE, 
KCPR 


rl4 


1 Put record length in user's register. 
No RECSIZE entry. 


1 32-35 
1 (20-23) 


A(6ICAREA2) 
A(&ICAREA1) 




If 2 areas. 
1 If 1 area. 


1 36-39 
1 (24-27) 


A(SECFADDR) 




1 End-cf-file address. 


1 40-43 
1 (28-2B) 


A(SERROPT) 
SR 0,0 
SVC 6 
E 12(15) 
E 138(15) 




Addr. of user's error routine if ERRCPT=nanie. 
1 ERRCP1 cirittec. 

ERRCPT=SKIP. 
ERRCPT=IGNCRE. 


1 44-47 
1 (2C-2F) 


A(gWLRERR) 

E 12(15) 
E 152(15) 

E 152(15) 




Address of user's WLR routine if 
i WLRERR=nair€ . 

WLRERR omitted and ERROPT=SKIP. 
1 WLRERR and ERROPT bcth ciritted, or 

WIRERR emitted and ERR0P'I = IGNCRE. 
1 RECFCRiyi=FIXUKE or oiritted. 


1 48-55 
1 (30-37) 


X • 2 \ glOAREAl , X • CO • , 6ELKSIZE 
X • 06 • , 6I0AREA1 , X ' CO ' , 6ELKSI ZE 


1 CCW: if RECFCRiy!=FIXUNE cr emitted . 
CCW: if RECFCRiy!=UNDEF. 


1 56-63 
1 (38-3F) 






1 Duplicate CCVv. 


1 64-67 
1 (40-43) 


fO' 




Savearea for register 14. 


1 68-71 
1 (44-47) 


L SICREG,48(1) 
NCP 0(0) 


i Put input area address into user's register. 
No ICREG entry. 



L JL X J 

Figure 17. DTFPT: No translations, nc shifts cr deletes; devic€=2671. 
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r T- 

I Eytes I 



Contents 



I 



Function 
CCB (X'CO' in byte 2) . 



0-15 
(OC-OF)| 

16 1 
(10) 



17-19 
(11-13) I 

20 
(14) 



21 
CIS) 



22-25 
(16-19)1 

26-27 
(lA-lE) 

28-29 
(1C-1D)| 

30-31 1 
(lE-lF) 

32 

(20) i 

33-35 1 
(21-23) 

36-39 
(24-27) 

40-43 
(28-2E) 

44-47 
(2C-2F) 

48-55 1 
(30-37) 



X'20' 
X'08' 



X'Ol' 



KVI 26(1), X«07' 
NOP 0(0) 

SVC 



SVC 
NCPR 

H'O' 



C'02' 



AL3(SIOAREA2) 
AL3 (glOAREAl) 

A(6ECFADDR) 



A(0) 



KCP 0(0) 



CCECL open; ignore option 

DTF table address constants relocated 

by CPENF. 

Address of logic irodule. 



DTF type. 



Eit CPEK indicator, 

1 Tvv^o I/O areas. 

2 EOF indicator. 
3-5 Not used. 

6 Scarring. 

7 Not used. 

NOP first SVC if 2 areas. 
If 1 area. 

Read a record. 



Read another record if 2 areas. 
If 1 area. 

Reocrd length field. 



If 2 areas. 
If 1 area. 

End-of-file routine address. 



X • 02 • , &I0AREA1 , X • CO \ &CVELKSZ 
X'02« .SIOAREAl^X'OO' ,€EIKSIZE 



CCW: if CVEIKSZ specified. 

if CVEIKSZ not specified. 



Figure 19. CTFPT: Translation, shifts and deletes, \K;ith fixed unblocked records; 
device=2671 (1 of 2). 
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I Bytes j 
[ + 

0-15 
(CO- OF) 

16 
(10) 



17-19 
(11-13) 

20 
(14) 

21 
(15) 



Contents 



Function 
CCB (X'Oe* in byte 2). 



22-25 
(16-19) 

26-27 
(lA-lB) 

28-29 
(IC-ID) 

30-31 
(lE-lF) 

32-35 
(20-23) 

36-39 
(24-27) 

40-43 
(28- 2B) 



44-47 
(2C-2F) 



X'20' 
X«08« 



X'Ol* 



KVI 26(1), X'07' 
NCP 0(0) 

SVC 



SVC 
NCPR 

H'O' 



A(SICAREA2) 
A(SICAREAl) 

A(SECFADDR) 



A(6ERR0PT) 

SR 0,0 
SVC 6 
E 16(15) 
E 246(15) 

A(&V^LRERR) 

E 16(15) 
E 260(15) 



L -JL, 

Figure 20. 



CCECL open; ignore option. 

DTF table address constants relocated 

by CFENR. 

Address of logic irodule. 



ETF type. 



Eit CFEK indicator. 

1 Two I/O areas. 

2 EOF indicator. 
3-5 Not used. 

6 Scarring. 

7 Read error. 

NCP first SVC if 2 areas. 
If 1 area. 

Read a record. 



Read another record if 2 areas. 
If 1 area. 

Record length field. 



If 2 areas. 
If 1 area. 

End-of-file routine address. 



Address of user's routine if 

ERRCF'r=nair€. 
ERRCPl omitted. 

ERRCFT=SK1P. 
ERRCPT=IGNCRE. 

Address of user's WLR routine if 

WLRERR=name. 
WLRERR Oiritted and ERROPT=SKIP. 
WLRERR omitted and ERROFT=IGNCRE 

oiritted. 



CTFPT: Translation, 
records; device=2671 



shifts, and deletes, with undefined 
(1 of 2). 
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J. J. 

I Eytes I 



Contents 



Function 
CCE (X'88« in fcyte 2). 

Indicates DTF table relocated by CPENP, 

jv.ddress of logic irodule. 

DTF type. 



Eit C CPEK indicator. 

1 TWO I/O areas. 

2 EOF indicator. 

3 Read error. 
a-6 Not i:sed. 

7 Undefined record. 

NOP first SVC if 2 areas. 
If 1 area. 

Read a record. 



Read another record if 2 areas. 
If 1 area. 

Put record length into user's register. 
No RECSIZE entry. 

If 2 areas. 
If 1 area. 

End-of-file address. 
No ECFAEDR operand. 



Addr. of user's error routine if ERRCPT=naiiie, 
ERRCPT omitted. 

ERRCPT=SKIP 
ERRCPT=IGNCRE 

i^ddress of user's WLR routine if WLPERR=narne , 

ViLRERR absent and ERRCPT=naire. 

WLRERR absent and ERRCPT=SKIP. 

WIRERR and ERRCPT both absent or VvLRERR 

absent and ERRCPT=IGNCRE . 
RECFCRM=FIXUKE or absent. 

CCW: if RECFCRM=FIXUNE or absent. 
CCW: if RECFCRM=UNDEF. 



0-15 
(00-OF) 

16 
(10) 

17-19 
(11-13) 

20 
(14) 

21 
(15) 



22-25 
(16-19) 

26-27 
(li^-lB) 

28-29 
(IC-ID) 

30-31 
(lE-lF) 

32-35 
(20-23) 

36-39 
(24-27) 



40-43 
(28-2E) 



44-47 
(2C-2F) 



48-55 
(30-37) 

56-63 
(38-3F) 

64-67 
(40-43) 

68-71 
(44-47) 



X'08' 



X'Ol' 



WVI 26(1), X'07' 
NCP 0(0) 

SVC 



SVC 
NCPR 

LR gRECSIZE,14 
NCPR 

A(&ICAREA2) 
A(&ICAREA1) 

A(&ECFADDR) 
SVC 50 
H'O' 

A(&ERROPT) 
SR 0,0 
SVC 6 
E 0(14) 
E 4(14) 

A(6WLRERR) 
A(6ERR0PT) 
B 0(14) 
E 8(14) 

E 8(14) 



X'02' ,SIOAREA1,X'00' ,SELKSIZE 
X ' 06 ' , SIOAREAl , X • 00 • , SELKSIZE 



F'O' 



L &ICREG,48(1) 
NCP 0(0) 



Duplicate CCVC. 



Save area for register 14, 



Put input area address into user's register. 
No ICREG entry. 



Figure 21. DTFPT: No translation, no shifts or deletes; device=1017. 
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p ^. 

I Eytes I 



Contents 



-T- 

I 
-+- 



Function 
CCE (X'80' in byte 2). 

Indicates DTF table relocated by CFENB. 

Address of logic irodule. 

DTF type. 



Eit CFEK indicator. 

1 Two I/O areas. 

2 EOF indicator. 
3-5 Not used. 

6 Scarring. 

7 Not used. 

NOP first SVC if 2 areas. 
If 1 area. 

Read a record. 



Read another record if 2 areas. 
If 1 area. 

Record length field. 



If 2 areas. 
If 1 area. 

End-cf-file address. 
No ECFAEDR operand. 



0-15 
(00-OF) I 

16 
(10) 

17-19 
(11-13) 

20 
(lU) 

21 
(15) 



22-25 
(16-19) I 

26-27 
(lA-lE) 

28-29 
(IC-ID) ! 

30-31 
(lE-lF) 

32 
(20) 

33-35 
(21-23) 

36-39 
(24-27) i 



40-43 
(28-2B)i 

44-47 
(2C-2F) 

48-55 
(30-37)1 

56-59 
(38-3E) 



X'08« 



X'Ol* 



KVl 26(1), X'07' 
NOP 0(0) 

SVC 



SVC 
NCPR 

H'O' 



C'02« 



AL3(gIOAREA2) 
AI3(gI0AREAl) 

A(£EOFADDR) 
SVC 50 
H'O' 

A(0) 



NOP 0(0) 



X'02' ,6IOAREA1,X'00' , SCVELKSZ 
X • 02 • , &I0AREA1,X • CO ' , gEIKSIZE 

L 6ICREG,96(1) 
NOP 0(0) 



CCW: if CVEIKSZ specified. 

if CVEIKSZ not specified. 

Put input area address into user's register, 
No ICREG operand. 



Figure 23. DTFPT: Translation, shifts and deletes, fixed unblocked records; 
device=1017 (1 of 2). 
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r T" 

I Bytes I 



Contents 



I 



Function 



0-15 
(00-OF) 

16 
(10) 

17-19 
(11-13) 

20 
(14) 

21 
(15) 



22-25 
(16-19) 

26-27 
(lA-lB) 

28-29 
(IC-ID) 

30-31 
(lE-lF) 

32-35 
(20-23) 

36-39 
(24-27) 



40-43 
(28-2E) 



44-47 
(2C-2F) 



X'08' 



X'Ol* 



MVI 26(1), X'07" 
NCP 0(0) 

SVC 



SVC 
NCPR 

H'O' 



A(€ICAREA2) 
A(€ICAREA1) 

A(gECFADDR) 
SVC 50 
H'O' 

A(gERROPT) 



SR 0,0 
SVC 6 
E 0(14) 
E 4(14) 

A(6WLRERR) 
A(gERROPT) 
E 0(14) 
E 8(14) 



L X, 

Figure 24. 



CCE (X'88' in byte 2) . 



Indicates DTF table relocated by CFENR. 



Address of Icgic irodule. 



DTF type. 



Eit CPEK indicator. 

1 TWO I/O areas. 

2 EOF indicator. 
3-5 Not used. 

6 Scarring. 

7 Read error. 

NOP first SVC if 2 areas. 
If 1 area. 

Read a record. 



Read another record if 2 areas. 
If 1 area. 

Record length field. 



If 2 areas. 
If 1 area. 

End-cf-file address, 
No ECFAEDR operand. 



Address of user's error routine if 
ERRCPT=naire. 

ERRCPT omitted. 

ERRCPT=SKIP 
ERRCFT=IGNCRE 

Address of user's WLR routine if WLRERR=naiTie 
WIRERR absent and ERRCPT=naire. 
WLRERR absent and ERRCPT=SKIF, 
WIRERR and ERRCPT both absent or WLRERR 
absent and ERROPT=IGNCBE . 



ETFPT: Translation, 
(1 of 2). 



shifts and deletes, undefined records; device=lC17 
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r -^-T- 

I Eytes I 



Contents 



I 
-+- 



Function 
CCB (X'8A' in byte 2). 

Indicates DTF table relocated by CFENF, 

Address of logic itiodule, 

ETF type. 



Hit CPEK indicator. 

1 iwc I/O areas. 

2 Virite error. 

3 CICSE indicator. 
4-5 Retry counter. 

6 Not used. 

7 Undefined record. 

Put output area address into user's register. 
No ICPEG operand. 

Delete character. 

No delete character specified. 

Not used. 



If 2 areas. 
If 1 area. 

CCW if PECFCRN=FIXUNE. 

CCW if BECFCPN=UNDEF. 



0-15 
(CC-OF)| 

16 
(10) 

17-19 
(11-13)1 

20 
(lU) 

21 
(15) 



22-25 
(16-19)1 

26 
(lA) 

27 
(IE) 

28-31 
(IC-IF) 

32-47 
(20-2F)| 



48-55 
(30-37) 1 

56-59 
(38- 3B) 

60-63 
(3C-3F)| 



64-67 
(40-43) 

68 
(44) 



X'08' 



X'Ol^ 



L SICREG,48(1) 
NOP 0(0) 

X'SDEICHAR' 
X'OO' 



A(SICAREA2) 
A(6ICAREA1) 

X • 01 • , &I0AREA1 ^ X • 00 • , SEIKSI ZE 

D'O' 

X'Ol* ,SIOAREAl^X"00',gELKSIZE 

X'01%68,X'C0\C1 



A(STRANS) 
A(0) 

A(5ERR0PT) 

SR 0,0 
SVC 6 
E 0(14) 

SIH 6RECSIZE,54(1) 
NOP 0(0) 

X'SECRCHAR' 
X'OO' 



Duplicates CCVv, 



Address of user's translate table. 
If re translation specified. 

Address of user's error routine if 

ERRCFT=none. 
ERRCPT absent. 

ERRCP'I = IGNORE. 

Save user's record length. 
No RECSIZE operand. 

End of record character. 

No ECRCBAR operand or RECFORiy=FIXUNE . 



Nuirbers in parentheses are displaceirents in hexadeciiral notation « 
Figure 25. DTFFT: no shifts, device=1018. 
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PTMCD Macro 



The PTMOD rracro can generate ten Icgic 
irodules providing the GET or PUT function 
for paper tape files. The particular 
irodule depends on DEVICE=, TFANS=^ and 
SCAN= iracro paraireters. The user can 
obtain four different logic nodules for the 
2671 paper tape reader if EEVICE=2671 is 
specified or if BEVICE= is ciritted. He can 
obtain four different logic nodules for the 
1017 paper tape reader if DEVICE=1C17 is 
specified and two different logic ircdules 
for the 1018 paper tape punch if 
DEVICE=1018 is specified. 



The TRANS= parameter specifies whether 
or not the generated module contains the 
logic needed to translate non-shifted 
punched paper tape characters intc EBCDIC 
code on input (2671/1017 paper tape reader) 
or EBCDIC code into non-shifted punched 
paper tape characters on output (1C18 paper 
tape punch) . 



The SCAN= parameter specifies whether or 
not the generated module ccntains the logic 
to handle records containing shift and/or 
delete characters. 



All modules support the use cf either 1 
or 2 I/O areas. Decision fclccks are 
included in the flowcharts tc indicate the 
procedure fcllcwed for both 1 and 2 I/C 
areas. 



PTMCD: GjET__jy:acro^ No Translaticn^ 

Device=2671 Chart CJ 



Objective; To read a record frcir paper 
tape punched in EBCDIC code. 



Entry; Froir a GET macro expansion. 



^ -J., 

1 Input 
Area 



IJEIMCVE 

IJEISVCI 
IJE1SVC2 



NOP 0(0) 

SVC 
NCPR 



2 Input Areas 



MVI IJEISVCI, X' 07' 
(NCP first SVC 
instruction) 

SVC (first) 

SVC (second) 



If only cne I/C area is specified for 
the file, the GET routine uses the 'first* 
SVC C instruction to read a record froir the 
paper tape device. After the ccrrplete 
record has been read intc the I/C area, the 
I/C area address in the CCW and the I/C 
area address in the DTE table are 
exchanged. (In this case, the exchange is 
neaningless because bcth addresses are the 
same when only one I/C area is used.) The 
record is then checked for errors and 
ccntrcl is returned tc the prcbleir program. 



If twc I/O areas are specified for the 
file, the GET routine uses the 'first' SVC 
C instruction to read the first record 
cnly . After the first record is read, the 
first SVC instruction is made a NOP by 
the execution cf the instruction contained 
in the DTE table at the label IJEIMOVE. 
The first SVC instruction is only 
restored if it is needed tc handle error 
conditions. After checking for I/C 
complete and reading a ccmplete record intc 
the I/C area, the addresses cf the two I/C 
areas are exchanged, and the record is 
checked for errors. The GET routine then 
KCPs the first SVC instructicn and uses 
the 'second' SVC instructicn tc read the 
next record. From, this point on, only the 
second SVC instruction is used 
exclusively, except for handling error 
condition. The GET routine returns control 
tc the prcblem, program without waiting for 
ccmpleticr. of the I/C operation started by 
the second SVC instruction. 



Exit: To the problem program, or tc the 
user's EOF routine. 



Method: To support the use cf either 1 or 
2 I/O areas, the GET routine makes use of 
three key instructions contained in the DTF 
table. The three instructions, repeated 
here for convenience, are: 



PTMCDj^ GET Macro, Translation, No Shif t ed 

Cede, Device=2671 Chart CJ 



This GET routine functions the same as the 
GET routine for no translation. It differs 
cnly in the logic included tc accomplish 
the required translation cnce a ccmplete 
record has been read into the I/C area. 
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Only undefined records are checked for 
wrong length errors. For this, the user 
irust specify one byte in excess of the 
longest record. If the residual count is 
zero, control is given to the vrcng length 
error routine. 

When physical IOCS indicates a permanent 
data check (kit 4 of the ccirirunicaticn byte 
in CCB) , the reader is stopped following 
the erroneous character so that the input 
area is not completely filled. Lcgical 
IOCS starts a read operation to obtain the 
remainder of the record, then exits to the 
errcr option. 

End of File ; Upon detection of an 
end-of-file condition (unit exception in 
CSW) by physical IOCS, a flag is set in the 
CCE (bit 1 of the communication byte) . 
When logical IOCS detects this flag, an 
input area can still be processed. Thus, 
control to the EOF routine is cnly given at 
the following GET macro instruction. 



PTMCDj GET Macro, No Translaticn, 

Device=1017 chart CM 



Objective: To read a record frcir the paper 
tape without performing the translating or 
editing procedures. 

Entry: From the GET macro expansion. 

Exit: To the user's program one 
instruction after the GET macrc expansion 
(normal return) , or to one of the ether 
possible user's routines (end-of-f ile, 
wrong length, data error). 

Method: The method is essentially that 
just described under Basic Principles. 



PTMCD: GET Macro, Translaticnjt,_Eeyice=1017 

Chart CM 



Objective: To read a record from the paper 
tape and to perform the translate function, 
that is, to translate the paper tape cede 
to an acceptable code. 

E nt ry: From the GET macro expansion. 

Exit: To the user's program one 
instruction after the GET macrc expansion, 
or to one of the other possible user's 
routines. 

Method: This method is essentially that 
just described under Basic Principles, 
except for the translate function. The 
translate function is performed using the 
TRT^NS table specified by the user, which 
must satisfy the requirements of the TR 
instruction. 



PTMCE: GET Macrc^ Translaticn, Shifted 
Codey F ixed Unblocked Records^ Device=1017 
Chart CN 



Objective: To read a record from paper 
tape using the translating and editing 
procedures. 



Entry : From the GET macrc expansion. 

Exit; To the user's program or tc the EOF 
routine. 

Method; The m.ethod is described under 
Basic Principles, except for obtaining the 
correct number of bytes to complete the 
fixed-length record. 

The number of characters specified by 
the user in OVBLKSZ is read in, translated, 
and compressed as described in the 
following section (Charts GL and GM) . If 
the resulting record is shorter than that 
specified in BLKSIZE, additional characters 
are read ir, translated, and compressed to 
complete the record. Additional reads are 
performed until the record length is equal 
to or greater than BLKSIZE. On the next 
GET macrc instruction, the remairing 
characters, if any, are stored in the 
leftmost positions of the next input area 
to be read in. The I/C ccmmanc is modified 
by the length of the remainder. 



PTMCEj GET Macro, ^Translation, Shifted 

Code, Undefined Records^ Deyice=1017 Chart 
CP 



Objective ; To read a record from the paper 
tape and to perform the translating and 
editing procedures. 

Entry: From the GET macro expansion. 

Exit; To the user's program one 
instruction after the GET macrc expansion, 
or tc one of the user's routines 
(end-of-f ile, wrong length, data error). 

Method; Cnly the translating and editing 
functions are considered. The Icgic is 
described under Basic Principles . The 
editing functions consist of the following; 

1. 1^. scar for shift and/cr delete 
characters is made using the Scan 
table. All entries cf this table are 
zero except the entries for the shift 
and/cr delete characters. Scanning is 
performed by a TRT irstructicn. 

2. V^hen a shift and/cr delete character is 
encountered, scanning steps and the 
corresponding address is stored. 
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CCWl Write the whole record. 

CCW2 Write the EOR character in the 
UNDEF record forirat. 

Insertion of shift characters in a record 
results in lengthening of the reccrd. If 
the user does not use the option OVELKSZ^ 
several WRITE operations are required to 
punch the record. If CVBLKSZ has keen 
specified with a value greater than that 
specified for BLKSIZE^ the record can be 
punched in a single operation. 

The following steps describe the logic 
of the editing function: 

1. Determine the shift status cf the first 
character in the record to include the 
correct shift character in the CCWO. 
This character will be the reccrd 
header. 

2. Perforin a scan, using the ccrrect 
scanning table, LSCAN or FSCAN, 
depending on the current shift status. 



3. When the end of the record or a change 
in the shift status is erccuntered, the 
scanning operation (TFT instruction) is 
stepped and the segirent is translated. 



M. Test tc irake sure that the end of the 
record does not overstep the bounds of 
the output area (EIKSIZE or CVELKSZ) . 
If space is left, the reirainder of the 
reccrd is iroved by ore character fcr 
right- justification tc include the new 
shift character. Then, the procedure 
is resulted at step 2. If nc space is 
left, the segment considered is 
punched. The reirainder cf the reccrd 
is moved to the beginning of the output 
area, fcr left- justification . Then, 
the procedure is resumed at step 2. 



Kcte that CVELKSZ is igncred fcr undefined 
records. For further infcrmation en 
CVELKSZ, see Paper Tape File (DTFPT) in 
ECS/VS Supervisor and I/C Macros , 
GC33-5373. 
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r 1 

1 Eytes 


1 
EitsI 
^ j.«_ 




Contents^ 


-T T' T 

1 |Record2 | 
1 Function JForirat | 

.4...^.-. „—.«„««„«« -.„• -.J. ..J 


1 0-15 
1 (00- OF) 




T 








-- 1. -|. ^ 

|CCE. I 1 


i 8 
1 (8) 

1 16 
1 (10) 




1 


1 Input : 
1 Cutput : 


X«00«-X«63' 

1 x'oo*-x«oa« 
(Variable) 
X'OO' (Undefined) 


lEuffer offset length, ASCII | | 

IFirst tine entered MTMCD for a fil€| | 
|Not used. 1 1 


1 17-19 
1 (11-13) 


2 

3 

^ 

5 
6 

7 










1 CCECL open; ignore option. | | 
1 American National Standard CCBCL | | 
|DTF tatle address constants | | 
1 relocated h^ CPENR. | | 
|1 = spanned records | | 
|1 = ASCII |V 1 
|0 = EECDIC |V,S 1 
1 ASCII input: l=Length Check |V | 
lASCII output: l=Buffer |V | 
1 offset length=U | | 
[Address of logic module, j | 


1 20 
1 (lU) 






•11> 
•12' 
•13« 
•14« 






INorstandard or unlabeled . | | 
istandard labeled, output. | | 
[Standard labeled, input, backwards. | | 
jstandard labeled, input, forwards. | | 


1 21 
1 (15) 




1 

2 
3 

a 

5 
6 
7 










|First tiire switch: | | 
|1 = not first-time entry. j j 
|0 = first-tine entry. | | 

|1 = blocked. | | 
1 = unblocked. | | 

|1 = 2 I/C areas. | | 
|0 = 1 I/C area. | | 

|1 = workarea, |F,U,V | 
1 = no workarea. |F,U,V | 
|0 = vicrkarea, spanned |S | 

|1 = input, 1 1 
1 = output 1 I 

|1 = backwards. | | 
|0 = forwards. | | 

|1 = checkpoint. | | 
1 = no checkpoint. j j 

|1 = TRUNC required during Close. | | 


i 22-29 
1 (16-lD) 












ISyirbolic filename. j | 


1 30 
1 (IE) 












iSaire as ooirirand code in CCK. | | 
1 (X'Ol', X«02«, or X'OC"). | | 



L X-.^ X X X J 



Figure 27. CTFKT: Data files (1 of IC) 
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Eytes 



Eits 



Contents^ 



Fi^nction 



T-" 1 

Eecord^ 
Forirat 



36 
(24) 



37-39 
(25-27) 

40-43 
(28-2E) 

44-47^ 
(2C-2F) 



48-51 
(30-33) 



52-55 
(34-37) 



EXH 11,12,24(15) 

EXLE 11,12,24(15) 

L gVARELD,CEELCCKEF 

NOP 0(0) 

DC F'O' 

LA 14,1(14) 

ECTR 14,0+NCFRC 

L SRECSIZE,EEELCCKER1 

NOP 0(0) 

L SICREG,DEEL0CKER1 

L gICREG,DEEL0CKER5 

L £ICREG,DEEL0CKER2 

NOP 0(0) 

L SRECSIZE,IJFVSREC 

ST SRECSIZE,IJFVSREC 



56-63 
(38-3F) 



DTFPH: 1 = yes, = nc. 

CCECL indicator: 1 = yes, 
= no. 

File type: 1 = input, 
= output. 

FECV sviitch: 1 = yes, 

= no. 

EOF-EOV switch (output): 

1 = EOF, = ECV. 

Open indicator: 1 = open, 

= closed. 

1 = variable or spanned records, 
1 = undefined records. 

EOF address. 

Elcck ccunt. 

Forward. 

Backward. 

If VARELD parameter is used. 



DEELOCKERl. 

Backward. 

If RECSIZE given. 

For input if not NOP. 

If ICREG specified. 

If ICREG specified. 

If ICREG specified. 

If nc ICREG. 

If spanned input. 

If spanned output. 

CCV^. 



V,S 



F 
F 
V 

s 
u 

F,V,S 

F,V,S 

U 

U 

F 

V 

U 

s 
s 



Figure 27. ETFMT: Data files (3 of 10) 
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Eytes 



Bits 



Contents^ 



F\:nction 



'T 1 

Fecord^ 
Forirat 



H 



80-83 
(50-53) 



84-87 
(54-57) 



DC Y(BLKSIZE)+Y(ELKSIZE-1) 

EC g(BLKSIZE)+Y(ELKSIZE+l) 

EC F'O' 

LR 12,RECSIZE 

EC H'O' 

EC Y(RECSIZE-l) 

EC 2X'00' 

EC A(ICAREAl+a) 

DC A(ICAREA2+4) 

DC AdCAREAl+BUFCFF) 

DC A(ICAREA2+BUFCFF) 

DC 2X'00' 

B 28(15) 
E 24(15) 
E 28(15) 
DC A(ERROPT) 



Forward. 

Backward. 

DEELCCKER4. 

(Bytes 80-81 only.) 

(Bytes 82-83.) 

(Bytes 84-85.) 

(Bytes 86-87) Output, 
standard labels. 

1 I/C area: DEBL0CKER5, EBCDIC. 

2 I/C areas: DEBL0CKER5, EECDIC. 

1 I/C area: EEBLCCKER5, ASCII. 

2 I/C areas: DEEL0CKER5, ASCII. 

(Eytes 84-85 output only) 

Standard Latels. Reserved for CPEN. 

Input only, ERRCPT=oiritted. 

Input only, ERRCPT=SKIF. 

Input only, ERROPT=IGNCRE. 

Input only, ERRCPT=ADDRESS 



F 

F 

V,S 

U 

U 

F 

F 

V,S 

V,S 

V 

V 

F, U 

u 
u 
u 
u 



88-91 
(58-5B) 



90-95 
(5A-5F) 



DC A(WLRERR) 
B 24(15) 

B 28(15) 

DC 2X'C0' 

DC A(ERROPT) 

DC 6X'00' 



Input only ViLRERR=ADDRESS. 

Input only, ViLRERR oiritted 
and ERFCPT=SKIP. 

Input only, ViLRERR oiritted 
and ERRCPT=IGNCRE or onitted. 

Output only, standard latels 
(bytes 88-89), reserved for OPEN. 

Input only, v;lrerr oiritted and 
ERRCPT=ADDRESS. 

File Serial Kurrber, 

Standard latels. Output only. 



For 

Fixed 

Length 

Records 

only 



Figure 27. DTFt^I: Data files (5 of 10) 
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J. ^ — 


y -,. 


y ^ 




1 




IReccrd^ | 


1 Eytes 1 Bl 


Lts| Contents^ 


1 Function 


1 Format | 


L«.^...^.^«.J.^.. 


L -.-. « L 


1 4 


I*"""*"""""""""™!""*""" 


j. -.-. « 


r 


-|. ^ 


1 100-1031 


|CC A(WLRERR) 


Input cnly^ WLRERR=ADDRESS. 


|For 1 


1 (64-67)1 


1 




|Vari- 1 




|E 24(15) 


Input only, ^LRERR^oiritted 


lable 1 




1 
I 


land ERRCET=SKIP. 


j Length | 
land 1 




|B 32(15) 


1 Input only, VvLRERR=ciritt€d 


j Spanned | 




1 


and ERROPT=IGNORE or 


1 Records j 




1 


Iciritted. 




1 100-1011 


|DC 2X'00' 


Output only, standard labels. 




1 (64-65)| 


1 
1 


Ireserved for OPEN. 




1 10a-107| 


1 

IDC A(ERROPl) 


1 Input only, ERRCPT=AEDRESS . 




1 (68-6B)| 


|E 28(15) 


Input only, ERRCPT=oiritted. 






|B 24(15) 


1 Input only, ERROPT=SKIF. 






|E 28(15) 
1 


Input only, ERRCPT=IGNCRE. 






1 

|EC A(ERROPT) 

1 

1 
1 


Output, Nonstandard labels 
jcnly (Versicr 3 onward). 
ERRCFT=AEDRE£S 




1 108-1111 


1 

|DC 4X'00' 


Voluire sequence number. 




1 (6C-6F)| 


1 
1 


IStandard labels, output only. 




1 108-1091 


1 

|DC 2X«C0' 


IStandard labels, input only. 




1 (6C-6D)| 


1 
1 


Reserved for OPEN. 




1 110-1151 


1 

|DC 6X'00' 


File serial number. 




1 (6E-73)| 


1 
1 


IStandard labels, input cnly. 




1 112-1151 


I 

|DC 4X'C0' 


|File sequence number. 




i (70-73) 1 


1 
1 


Standard labels, output cnly. 




1 116-1191 


1 

|DC A(ERROPT) 


Output only, ERRCPT=ADERESS, 




1 (74-77)1 


1 
1 


IStandard labels cnly. 




j 116-1191 


1 

|DC 4X'C0' 


IVclume sequence number 




1 (74-77)1 


1 
1 


Standard labels, input cnly. 




1 121-1231 


|CC 4X'00' 


File sequence numiber. 




1 (78-7B)| 


1 


[Standard labels, input cnly. 





L JL X -L JL J 



Figure 27. ETFMT: Eata files (7 cf 10) 
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^ y — 

1 Eytes 1 E] 


Ltsj Contents^ 

1 « ^ ^ , 


1 Functions 

±-.-.„«-.«-. « 


^ ^ 

|Reccrd2 | 
1 Format | 


1 100-1031 
1 (64-67) 1 


IDC A(WIRERR) 
IE 24(15) 
IB 32(15) 




1 

{Input cnly, VvLRERR=ADDRESS . 

1 Input only, VvLRERR=omitted 
land ERROPT=SKIP. 

1 Input cnly, V^LRERR=cmitt€d 
land ERROFT=IGNCRE or omitted. 


|For 1 
1 Spanned j 
1 Records j 
jonly 1 


1 100-1011 
1 (64-65) 1 


lEC 2X'00' 




1 Output only, standard labels, 
1 reserved fcr OPEN 




1 102-1071 
1 (66-6E)| 


|File Serial Kuirber 


istandard labels, output only. 




1 100-1031 
1 (64-67)1 


IDC 4X' 00' 




1 Output only, ERROPT=ADDRES£, 
INCEStandard labels cnly. 




1 100-1231 
1 (64-7E)| 


IDC 24X«00' 




ICutput cnly, ERRCPT=cmitted, 
1 Nonstandard labels. 




1 104-1071 
1 (68-6B)l 


|DC A(ERROPT) 
IB 24(15) 
IE 24(15) 
IB 28(15) 




1 Input only, ERROPT=ADDRE£S . 
1 Input cnly, ERROPT=cmitt€d. 
1 Input only, ERROPT=SKIP. 
1 Input cnly, ERROPT=IGNCRE. 




1 104-1071 
1 (68-6E)l 


IDC A(ERROPl) 




ICutput cnly, ERROPT=ADDRESS, 
1 Nonstandard labels. 




1 108-1231 
1 (6C-7B)1 


IDC 16X'00' 




1 Output only, ERRCPT=ADDRES£, 
INcrstandard labels. 




1 108-1111 
1 (6C-6F)1 


1 Volume Sequence Kuirber 


istandard labels, output cnly. 




1 112-1151 
1 (70-73)1 


|File Sequence 


Number 


istandard labels, output cnly. 




1 116-1191 
1 (74-77)1 


IDC A(ERROPT) 




ICutput cnly, ERRCPT=ADERESS, 
istandard labels. 




1 120-1231 
1 (78-7B)l 


IDC 4X'00' 




ICutput only, ERROPT=ADDRES£, 
IStandaid labels. 




1 108-1231 
1 (6C-7E)| 


IDC 16X'00' 




1 Input cnly, nonstandard 
1 labels. 




1 108-1091 
1 (6C-6D)| 


IDC 2X'00' 




istandard labels, input only, 
Ireserved fcr OPEN. 




1 110-1151 
1 (6E-73)| 


JFile Serial Kuirfcer 


IStandaid labels, input cnly. 




1 116-1191 
1 (74-77)1 


1 Volume Sequence Number 


istandard labels, input cnly. 




1 120-1231 
I (78-7E)l 


JFile Sequence 


Number 


istandard labels, input cnly. 





I X i. , X . X J 



Figure 27. DTFMT: Data files (9 cf 10). 
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p ^ 



Bytes 


Bits 




Function 


0-15 
(00-OF) 




CCB. 


16 
(10) 


0-1 

2 

3 

4 
5-7 


Not used, 

COBOL open; ignore option. 

1 = VOLl label is at user specified density. 

1 = DTF table address constants relocated ty CFENR. 

Not used. 


17-19 
(11-13) 




Address of logic module. 


20 
(14) 




DTF type = X'lO' . 


21 
(15) 



1 
2 
3 
4 
5 

6 
7 


1 = no rewind. 

1 = rewind unlcad. 

1 = workfile. 

1 = read backward. 

1 = write. 

1 = FOINIW. 

Not used. 

1 = forward-space file befcre next operation. 


22-23 
(16-17) 




Not used. 


24-25 
(18-19) 




Record length. 


26-27 
(lA-lE) 




Maxiiruni EIKSIZE. 


28 
(IC) 




Read comirand code (X'02' for read forward, X'OC for read backward). 


29-31 
(lE-lF) 




EOF address. 


32-39 
(20-27) 




CCW. 


40-43 
(28-2E) 




Block count, initialized OOOCOOOO fcr read forward, CC40C0C0 fcr 
read backward. 


44 
(2C) 



1 
2 
3 
4-7 


1 = error routine. 

1 = ignore. 

Not used. 

1 = record fixed unblocked. 

Not used. 


45-47 
(2C-2F) 




DC A(ERROP'I) Address of error routine. 



L X X J 



Numbers in parentheses are displaceirents in hexadecirral notation. 
Figure 28. ETFMT: Workfiles. 
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r T T 

I Eytes I Bits | Contents 



JFurcticn 



37-39 
(25-27) 

M0-a3 
(28-2E) 

44-87 
(2C-57) 

88-89 
(58-59) 

90-95 
(5A-5F) 

96-99 
(60-63) 

100-103 
(64-67) 



DC F'O' 



DC 2X'C0' 
DC 6X'00' 

DC ax' CO* 

DC 4X'00' 



User label exit. 



Reserved fcr OPEN. 



EOV Routine 



Reserved fcr OPEN 



File Serial Kuniber 



Vcluire sequerce Nuirfcer 



File Sequence Number 



Numbers in parentheses are displacements in hexadecimal notation, 
Figure 29. DTFPH: Magnetic tape (2 of 2). 



MTMCD MACRO 



The MTMOD macro provides the logic modules 
required to process both magnetic tape data 
files and v?orkfiles. In all, seven 
distinct modules can be generated; six for 
data files vwith various record formats, and 
one for workfiles. These modules supply 
the logic necessary to support all the 
logical IOCS imperative macros used with 
magnetic tape files. 

Because some of the LIOCS imperative 
macros are used with both data files and 
workfiles and some are used cnly with one 
file type, the magnetic tape modules have 
been combined and flowcharted tc illustrate 
the functions of the individual imperative 
macros. 



DATA FILES 



A separate logic module is generated by the 
MTMCD macro for data files ccntaining 
records in each of the following formats: 

1. Fixed, blocked and unblocked. 

2. Variable and spanned, blocked and 
unblocked. 

3. Undefined. 

These modules provide the Icgic tc perform 
the functions of the LIOCS imperative 
macros CNTRL, GET, PUT, REISE, and TRUNC. 



IF RECFCRN=SPNBLK cr SPNUNE, a wcrkarea is 
required. 

Kcte: The last two imperative macros are 
net used with undefined records. 



WCRKFIIES 



The wcrkfile module is generated by the 
KTMCD macro, when TYPEFLE=W0RK is 
specified, tc allow a tape drive tc be used 
for both input and output in one program. 
Although usually considered as ar cutput 
file first, the function of a workfile can 
be switched at any time, thereby allowing 
records to be written on cr read from the 
same file. 

The logic of the wcrkfile mcdule uses 
the imperative macros READ and WRITE, 
instead of the GET and PUT used by data 
files, to transfer records between the 
device and main storage. The wcrkfile 
module alsc differs from the data file 
modules in that blocked records, switching 
of I/O areas, and ASCII files are not 
supported . 

In addition to the READ ard WRITE 
imperative macros, the wcrkfile module 
supports the NOTE, PCINTS, PCINTR, POINTW, 
and CHECK imperative macros. CHECK must 
always be issued after a READ cr WRITE if 
the user wishes to ensure completion of the 
operation before issuing another 
instruction. NOTE is used with the PCINTR 
and FOINTW macros to position the tape to a 
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Method; This routine is for ncndata 
operations on the file. For iragnetic tape 
these operations are: backspace, forward 
space, rewind, write a tapeirark, etc. 

The routine puts the control operation 
code in the CCW, causes the control 
function to te performed, waits fcr the I/O 
operation to finish, and return control to 
the problem program. 



Entry; 
latel; 



Frcir a GET iracro expansion to the 



IJFFGET fcr files contairing 
fixed-length records in EBCDIC. 

IJFXGET for files containing 
fixed-length reccrds in ASCII. 

IJFUGET fcr files ccr.tair.ing undefined 
records in EECmc 



MTMCC; FEOV Macro Chart DC 



Objective; To cause an EOV to occur before 
a true EOV condition is reached. 



Entry; 
label; 



From an FEOV macro expansion to the 



IJFFFEC for files containing 
fixed-length records in EBCDIC. 

IJFXFEO for files containing 
fixed-length records in ASCII. 

IJFUFEC for files containing undefined 
records in EBCDIC. 

IJFNFEO for files containing undefined 
records in ASCII. 

IJFVFEO for files containing 
variable-length records in EBCDIC. 

IJFSFEC for files containing spanned 
records in EBCDIC. 

IJFRFEO for files containing 
variable-length records in ASCII. 

Exit; To the problem program. 

Method: The FECV macro causes an end cf 
volume condition to occur before the 
physical end of volume is reached. On an 
input file, the trailer labels are not 
checked and the user specified rewind 
option is executed. For an output file, if 
standard labels are specified, a trailer 
label is created, and the user rewind 
option is executed. 

This routine sets the FECV switch on in 
the DTF table and calls $$BCE0V1 tc close 
the file and execute the user specified 
rewind option. If no rewind opticr is 
specified, a message is issued indicating 
the tape should be rewound and unleaded. 



IJFNGET for files containing undefined 
records in ASCII. 

IJFVGET fcr files containing 
variable-length reccrds in EBCDIC. 

IJFSGET for files containing spanned 
reccrds in EBCDIC. 

IJFRGET for files containing 
variable-length reccrds in ASCII. 

Exit: Tc the problem frcgran cr tc the ECF 
address. 

Kethod: The GET routine accesses the next 
sequential logical record in a magnetic 
tape data file. The reccrd is mcved from, 
the I/C area tc the wcrkarea if WCRKA=YES 
is specified in the DTF. Otherwise, the 
record is available in the I/O area. 
Overlap cccurs if twc I/C areas are 
specified . 

The routine performs deblocking, if 
required (fcr variable-length reccrds, the 
user specified blocksize is obtained 
first) , arc then goes tc a read/write 
subroutine. The read/write subroutine 
checks fcr first time, twc I/O areas, 
checkpoint records, etc, and performs the 
required I/C cperaticn . If ASCII is 
specified, the input is first translated to 
EBCDIC. If a workarea is specified, the 
GET routine then branches tc the wcrkarea 
subroutine that moves the ccEtents of the 
I/C area into the workarea. If a workarea 
has not been specified, the address cf the 
current I/C area is loaded into the user's 
ICREG. Fcr variable-length, spanned and 
undefined records, the record size is 
calculated and made available tc the user. 
The GET routine then returns control tc the 
problem program. 

If ERBEXT is specified, irput errors are 
returned to the problem program, and 
greater flexibility is allowed the user in 
attempting to continue processing. 



MTMCD: GET Macro Charts DD-DE 



MTMCD2 I^CTE Macro, Wcrkfile Chart DF 



Objective; To access a logical record from 
a magnetic tape data file. 



Objective; To put the tape block count in 
register 1. 
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Ex it; To the problem prograir. 



Method: 



The PUT routine writes a record in 



the next seqi3ential location en the file. 
If a workarea is specified, the PUT routine 
moves the contents of the wcrkarea to the 
I/O area. For blocked (fixed, spanned and 
variable length) records, if the record 
fills the I/C area, the PUT routine writes 
the contents of the I/C area on the file. 
If unblocked or undefined records are 
specified, each PUT causes a record to be 
written on the file. If nc workarea is 
specified, the user must build the physical 
record in the I/C area. 

The PUT routine goes first tc a workarea 
subroutine tc determine if a workarea has 
been specified (for undefined reccrds, the 
record size is obtained pricr tc this 
action). If a workarea is specified, the 
record is moved from the workarea to the 
I/O area and any required blccking is 
performed. If ASCII is specified, the 
output is also translated tc ASCII. The 
PUT routine next goes to a read/write 
subroutine which checks for first time, twc 
I/C areas, checkpoint records, etc, and 
performs the required I/O cperaticr. The 
address of the next available I/C area is 
then loaded into the user's lOREG and the 
PUT routine returns control to the problem 
program. 

If ERREXT is specified, additicral 
errors are returned to the problem program, 
and greater flexibility is allcwed the user 
in attempting to continue processing. 



MTMCD; READ Macro^ Workfiles Chart DJ 



Objective: To read a physical record frcm 
tape. 

Entry: From a READ macro expansion 
IJFWREAD. 

Exit: To the problem program. 

Method: The READ macro allcws the user to 
access data en an input work file. This 
macro requires the user tc specify the area 
the record is read into, and also allows 
the user to read only a portion of the 
record if he desires. The READ macro 
allows the user to read his reccrds forward 
or backward. However, only cne direction 
of reading is allowed for a particular 
file. Deblocking of blocked reccrds is not 
performed by the READ macro. 

The READ macro routine branches tc the 
READ/WRITE Ccmmcn Subroutine tc test for 
record format and length and to set up the 
proper controls. This routine alsc 
determines if the entire physical record is 
to be read for undefined reccrds. If not. 



cnly a portion of the record is read. WLR 
checking is not performed. 

Before returning to the READ macro 
routine, a check cf tit 1 cf byte 21 in the 
DTF is rpade to determine if a POINTS macro 
was issued before the READ. If the bit is 
on, indicating the POINTS was issued, the 
tape is at Icadpoint. It is, therefore, 
necessary to execute a forward-space file 
cperaticn tc bypass any labels and position 
the tape tc the first data record. When 
this cperaticn is complete, control returns 
to the READ macro routine. 

The READ macro routine issues an EXCP to 
start a read cperaticn and returns to the 
problem program. 



MTMOD: REISE Macro Chart DJ 



Objective; To skip the reiraining reccrds 
in a block. 

Entry; Frcm a RELSE macrc expansion tc the 



IJFFREI for files cor.tairing 
fixed-length reccrds in EBCDIC. 

IJFXREI fcr files ccrtairing 
fixed-length reccrds in ASCII. 

IJFVREI for files containing 
variable-length reccrds in EBCDIC. 

IJFSREI fcr files ccrtairing spanned 
records in EBCDIC. 

IJFRREI for files containing 
variable-length reccrds in ASCII. 

Exit; Tc the prcbleir prcgran. 

Method; This routine causes the remaining 
reccrds ir the input block tc be bypassed. 
Conditions are set up that cause the next 
GET instruction for this file to read in a 
new physical record frcm the file. The GET 
instruction makes the first logical record 
cf the new block available tc the user. 

The REISE routine sets the end-cf -block 
pointer tc 0, and returns ccrtrcl to the 
problem program. 

The REISE macro can only be issued to an 
input file. 



MTMCE; TPUNC Macrc Chart DJ 



Cbjective; To write the current block even 
if it is ret full. 
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standard volume label, VOLl, and the 
standard file labels, HDRl, EOFl, and EOVl, 
(Refer to Vcluire 1 for the fcrirat cf these 
labels.) User labels and nonstandard 
labels must be processed b^ the user. 

Volume 1 of this set of four logic 
manuals contains a detailed discussion on 
the use of tape labels. 



y.ethod ; This routine opens an input tape 
file in a fcrward direction. It reads the 
standard vcluire label (VCLl) and compares 
the volume serial number contained in the 
label to the volume serial number obtained 
from SYSRES. The routine then reads the 
standard tape file header label (HERD and 
compares it to corresponding entries 
specified in the SYSRES label information 
(// TLEL card) . 



Tape Qpen^ Close and ECF/ ECV Routines 
Charts 01 and 02 



Note; Tape files are identified b:^ a 
single job control statement, // TLEL. 
This statement combines the infcrmation 
formerly contained in the // TLAE and 
// VOL statements and allows for simplified 
standard tape label processing and tape 
file creation. Note, however, that Job 
Control still accepts either type 
statement, and that a mandatory change of 
job control statements by the user is not 
required. 

The reader is cautioned, where reference 
is made to the // TLEL job ccntrcl 
statement in the text and flowcharts in 
this manual, that the reference applies to 
the collective // VOL and // TFLAE 
statements as well. Also, the decision 
block (that appears in some cf the 
flowcharts) that contains the question 

TLEL INFORMATION IN DTF 

determines if the DTF table contains the 
tape label infcrmation included by the 
DTFMT macros. 



^^ECMTOl^ Open Input Standard Labels, 

Forward Charts EA-EB 



Objective; To open, in a forward 
direction, input tape files with standard 
labels. 

Entry: 

• From the Open Monitor, $$E0FEN1. 

• From $$ECKT02. 

• From a message writer phase to the label 
RELOCATE. 

Input: From the label infcrmation stored 
on the SYSRES label information cylinder by 
Job Control (// TLEL card image) ar.d from 
the tape currently being processed. 

Exit; To $$EOMT07, phase 2 cf Open Input 
Standard Labels, Forward, to store the 
updated TLEL information. 



All differences 
the cperatcr. If 
and the address of 
(LAEADER) is speci 
the file, an exit 
tc read and proces 
After the tapemark 
the label area is 
fetched. 



are noted by messages tc 
user labels are detected 

the user's label routine 
fied in the ETF tabic fcr 
is made to that routine 
s the user's labels. 

signifying the end cf 
read, $$EOMT07 is 



Upcn e 
a test is 
was enter 
writer ph 
branch is 
the parti 
cperatcr 
address i 
the exit ( 
following 



ntry into the 

made to dete 

ed as a retur 

ase. If this 

made tc the 
cular respons 
fcr the messa 
s represented 
s) from the d 
the message 



$$EOMT01 cpen phase, 
rmine if the phase 
r from a message 

is the case, a 
address specified by 
e received from the 
ge printed. This 

in the flowcharts by 
ecision blcck 
tlcck. 



The DTF table should contain tape label 
information. If entry tc phase $$EOMT01 
was net by return frcm a message writer 
phase, a test is made for the presence of 
this label information. If the ETF 
contains such information, it must then be 
used tc update the SYSRES label 
information. 



Next, the $$BOMT01 ope 
tape fcr a standard velum 
(refer to Figures 26 and 
label is ret fcund, error 
printed. If the VOLl lab 
volume serial number is s 
Then the ETF table is che 
if the file is already op 
indicator is on, byte 36 
is examined to determine 
defined for processing by 
(ETFFH). If the file is 
volume sequence number en 
card image is incremented 
entry is blank. 



n phase reads the 
e label, VOLl 
27) . If this 

message 4111A is 
el is fcund, the 
aved in VCLSAVE. 
eked tc determine 
en. If the cpen 
of the ETF table 
if the file is 

physical IOCS 
sc defined, the 
try in the // TLEL 

by 1 unless the 



If the file is not al 
volume serial number in 
is compared to the file 
(EECEIC) or set identifi 
// TLEL eard image. If 
the same, error message 
If the response tc this 
the // TLEL file serial 
set identifier (ASCII) i 
vclume serial number. I 
KEWTAF, indicating that 
mounted a new tape, chec 
standard vclume label is 



ready open, the 
the tape VCLl label 
serial number 
er (ASCII) in the 
the numbers are not 
M112A is printed, 
message is IGNORE, 
number (EECDIC) or 
s made equal tc the 
f the response is 
the operator has 
king of the 
repeated. If the 
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To the Message Writer, $$BCMTCN. 



To the Standard Volume Label Rewriter, 
$$BONVOL, 



Method: The $$ECMT03 routine checks and 
builds labels for output tape files. The 
routine: 

1. Checks the information in the // TLBL 
card image and inserts the proper data 
when blank entries are encountered . 

2. Reads the standard voluire label frcir 
the tape and compares it to the 
information in the // TIEL card image. 

3. Determines the availability of the tape 
from the standard file label. 

U. Writes new standard file and user 
labels as required. 

When the required labels have been 
written on the tape, a tapeirark is written 
and the file is posted open in the DTF 
table. At this point, the tape is 
positioned at the beginning cf the data 
area. 

Upon entry into the $$BCMT03 phase, a 
check is made to deteririne if the phase was 
entered on a return from a message writer 
phase. If this is the case, a branch is 
made to the address determined by the 
response received from the cperatcr for the 
message printed. This address is 
represented in the flowcharts by the 
exit(s) from the decision blcck fcllcwing a 
message block. 

If a $$ECMT03 phase was not entered from, 
a message writer phase, a test is made to 
determine if tape label information is 
contained in the DTF table. If sc, it is 
necessary to update the // TLBL card image 
in main storage with information contained 
in the DTF table. 

This routine then checks the fcllowing 
fields of the // TLBL card image and 
inserts default values, as necessary, when 
blank entries are encountered: 

• Volume sequence number (EBCDIC) or file 
section number (ASCII) (default=0001) . 

• File sequence number (def ault=0C01) . 

• Generation number (def ault=0001) . 

• Version number (default=01 for EBCDIC 
and 00 for ANSI Labels) . 

• Expiration date (default-retention 
period = 0) . 

• Creation date (today's date). 



The blcck count in the DTF table is set 
to zero and a check is made for 
specification cf nc-rewird (WCRWE) . If 
NCRWD is not specified, the tape is rewound 
tc Icadpcirt. If NORWE is specified and 
the tape is not at loadpcint, a branch is 
made tc Iccaticn BACKSFC2, Chart LH. If 
the tape is at loadpoint, a check is made 
en the density of the tape mounted and 
assigned. After the density check, the 
tape is read in search of a standard volume 
label, veil. 



If a veil label is not found, error 
message 4110A is printed. If the cperatcr 
response is a volume serial number, a new 
VCLl label, followed by a dummy record tc 
prevent possible detection of a noise 
record, is written. A response cf NEWTAP 
indicates that the operator has mounted a 
new tape and the check cf the VCLl label is 
repeated. 



If a standard volume label is fcund, the 
vclume serial number is saved in VCLSAVE . 
If the file is not already pcsted cpen in 
the DTF table, the file serial number in 
the // TLEL card image is checked. If this 
field is blank, the vclume serial number 
frcm the VCLl label is inserted into the 
card image. The volume serial number and 
the // TLEL card file serial number 
(EECEIC) or set identifier (ASCII) are 
ccmpared. Any discrepancy is ncted by 
error message 4112A. If the serial numbers 
are equal, the next record is read. If any 
additional vclume labels are read, they are 
bypassed. 



When the standard file label, HDRl, is 
read, the expiration date is checked tc 
determine the availability cf the tape. If 
the tape is available (that is, if the 
retention period has expired cr the 
expiration date has been reached) cr if nc 
HERl label was found, the tape is 
backspaced and $$ECMT04 is fetched. 



If the tape is not at Icadpcint, the 
routine at EACKSPC2 is entered tc backspace 
twc records and read cne record in a 
forward direction. This sequence cf 
operations is executed in an attempt tc 
locate and retrieve information frcm the 
ECFl label of the preceding file. The file 
serial number (EBCDIC) or set identifier 
(ASCII) , vclume sequence number (EBCDIC) cr 
file section number (ASCII), and the file 
sequence number +1 frcm the ECFl label are 
inserted into the // TLBL card image and an 
exit is made from this phase tc $$EOMT04 
where a new header label is built and 
written fcr the file being cpenec. If nc 
preceding file labels are fcund, the tape 
is rewound and unloaded and error message 
41201 is printed. 
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Upon entry to the $$B0MTC5 phase, a test 
is irade to deterir.ine if the phase was 
entered on a return frcir a iressage writer 
phase. If this is the case, a branch is 
irade to the address (in register 14) 
specified by the response received froir the 
operator for the message printed. This 
address is represented in the flcwcharts by 
the exit(s) froir the decision block 
following the message block. 

If the phase was not entered en a return 
from a message writer phase, the ETF table 
is examined to determine the direction of 
the file to be opened and the appropriate 
action is taken. 



test positions the tape prcperly. The 
file is then posted cpen in the DTf 
table. 

For nonstandard labeled cutput files 
opened in a backward direction, the 
same action as in item 5 occurs. 

For unlabeled output files opened in a 
backward direction, the same action as 
in item 6 occurs. 



$<;EC1^T06; 
Chart EE 



Cpen Workf iles^ M§9"^tJ!:g...!?:!f£^ 



1. For nonstandard labeled input files 
opened in a forward direction, the 
labels are processed by the user if the 
address of the user's label routine is 
specified in the DTF table. Eetecticn 
of a tapemark indicates the end of the 
label area, and the file is posted 
open. 

2. For unlabeled input files opened in a 
forward direction, the tape is read in 
search of a tapemark. If a tapemark is 
not read, the tape is backspaced one 
record tc return it to its original 
position. In either case, the file is 
posted open in the DTF table. 

3. For nonstandard labeled cutput files 
opened in a forward direction, the 
labels are processed by the user if the 
address cf the user's label routine is 
specified in the DTF table. If the 
tapemark option is specified in the DTF 
table, a tapemark is written after the 
last label. The file is then posted 
open. 

4. For unlabeled output files cpened in a 
forward direction, the tape is read to 
determine if the tape contains any 
labels. If a label is detected, error 
message m25D is printed and the 
operator can elect either tc ignore the 
label or to m.ount a new tape. If the 
operator chooses to ignore the label 
and the tape is a 9-track tape, it is 
backspaced, written, and again 
backspaced. This sets the mode and 
erases the label. If the tapemark 
option is specified in the ETF table, a 
tapem.ark is written. The file is then 
posted open in the DTF table. 

5. For nonstandard labeled input files 
opened in a backward direction, the 
labels are processed by the user if the 
user's label routine address is 
specified in the DTF table and the file 
is posted open in the DTF table. 

6. For unlabeled input files cpened in a 
backward direction, the cnly check is 
for the existence of a tapemark. This 



Cbjectiye ; To open a tape wcrkfile. 

Entry; From the Cpen Monitor, $$ECPEN1, to 
the label TRANSENT. 

Input; Frcm the tape being f recessed. 

Exits ; 

1. Tc the TES processor, $$E0FE1S1. 

2. Tc the Standard Volume Label Rewriter, 
$$EGKVCL. 

Kethcd; This routine opens standard 
labeled or unlabeled, input or cutput, tape 
wcrkfiles. 

If this phase is reentered on a return 
from a message writer phase, a branch is 
made tc the address specified by the 
response received from the operator for the 
message printed. This address is 
represented in the flowchart by the exit(s) 
frcm the decision blcck that fcllcws a 
message blcck. 

If this phase was entered frcm the Cpen 
jy.cnitcr the tape is rewound tc Icadpcint, 
unless the NCRWD option is specified in the 
ETF table, and a read command issued. 

If a tapemark is read, the file is 
immiediately considered open and control is 
returned tc the TES processor, $$ECPEN. 

If a standard volume label (VCLl) is not 
read, blanks are inserted into the SDR 
record, the tape is backspaced, and a 
tapemark is written. The file is then 
considered Open and ccrtrcl is returned tc 
the TES processor, $$ECPEN. 

If a standard volume label is read, the 
vclume serial number is saved in location 
VCLSAVE. i^.dditional read commands are 
executed tc bypass any additional volume 
labels. If a standard file label (HDRl) is 
read that is neither blank ncr all zeros, 
the expiration date is checked tc determine 
the availability cf the tape. If the tape 
is available or if no HDRl label is read. 
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information for the file into the open 
table at the end of the logical transient 
area. This information is passed to the 
required tape ECF/EOV phase fetched by the 
EOF/EOV Monitor. The file open l:it in the 
P0E2 table is then turned off. 



$$ECMTOl! Tape Close „ EOF/ECV Inp^t 

Forward Chart FA 



Objective t To close an input tape file 
reading in a forward direction ♦ 

E ntry ; Froir the EOF/ECV Mcnitcr, $$ECE0V1, 
to the label TRANSENT. 

I i^p ut! Froir the SYSRES label infcriraticn 
cylinder (// TLBL card image) and from the 
tape currently being processed. 

Exits: 

1. To the user's EOF routine if specified 
in the DTF table. 

2. To phase $$ECMT02 for an ECV condition 
to switch to an alternate tape. 

3. To CANCEL if an error ccnditicr occurs. 

M et hod; This routine is called by the 
EOF/EOV Monitor. The routine reads and 
processes the standard trailer label. An 
exit and return are provided fcr processing 
user labels if LABADDR is specified. It 
checks to determine if an ECF cr ECV 
condition is present. If an EOV condition 
exists, $$BCMT02 (alternate switching 
routine) is called. If an ECF condition 
exists, control passes to the user's ECF 
routine by branching to the user's EOFADDR. 

Upon entry into the $$BCN.T01 phase, a 
test determines if the phase was entered on 
a return frcir a iressage writer phase. If 
this is the case, a branch is irade to the 
address specified (in register 14) by the 
response received from the cperatcr for the 
message printed. This address is 
represented, in the flowcharts, by the 
exit(s) from the decision blcck fcllcwing a 
iressage block. 



standard trailer labels if such are 
specified in the DTF table. Only the blcck 
ccunt contained in these labels is checked 
against the block count contained in the 
ETF table. Any discreparcy is ncted by 
error message 4131E. User labels are 
bypassed unless the user furnishes the name 
of his label processing routine. This 
phase checks DTF byte 16, bit 3, to 
determine if American National Standards 
CCEOL has teen specified. If it has been 
specified, a first-time switch is set 
tefcre yielding control to the user's label 
processing routine. The tape is rewound, 
unless the NCRWD cpticn is specified, and a 
check determines the type cf standard 
trailer label read (that is, ECVl cr ECFl) . 
An ECFl label sets the ECF-ECV switch, bit 
4 cf byte 36 in the DTF table. If the 
switch is turned on, the file is posted 
closed in the DTF table and an exit is made 
to user's end-of-file address, ECFADDR. If 
the switch is off, indicating that an 
end-of-volume condition exists, a test 
determines if the file is a COBOL file that 
must be rewound and unleaded. If so, the 
rewind-unlcad operation is executed. Phase 
$$ECMT02 is fetched to determine if an 
alternate tape is available. 

If nonstandard labels are specified, 
exit is made to the user's label routine 
(LABADDR) to process these labels. If no 
labels are specified cr if the user 
specifies the end-cf-file in the user label 
routine, exit is made to the user's 
end-cf-file routine, ECFADDR. If the user 
specifies end-of -volume, phase $$BCMT02 is 
fetched tc determine the availability cf an 
alternate tape. 

If the user specifies neither end cf 
volume ncr end of file, message 4130A is 
printed and the operator can specify either 
ECF cr ECV. If the operator's reply is 
ECF, an exit is made tc the user's 
end-cf-file routine, ECFADDR. If the 
operator's reply is ECV, a test determines 
if the file is a CCECL file that must be 
rewound and unloaded. If so, the 
rewind-unlcad operation is executed. Phase 
$$ECN.TC1 then fetches phase $$ECiy!TC2 to 
determine the availability of an alternate 
tape. 



If the phase was not entered on a return 
from a message writer phase, a check of the 
DTF table (byte 36) then determines if the 
file is being closed as a result of an FEOV 
(Force-End-cf-Volurae) macro being issued. 
If bit 3 of byte 36 is on, an FECV macro 
was issued. The tape is rewcund, unless 
the NORWD option is specified in the DTF. 
No lab el c he ck ing is pe rformed . Phase 
$$ECMT02 is then fetched tc determine if an 
alternate tape is available. 

If an FECV macro was not issued, the 
$$BCMT01 phase reads the tape in search of 



$$ECKT02; Tape Close^_Alternate_ Switching 

f cr'^icv Chart FE 



Objective; To switch tape drives when EOV 
is sensed. 

Entry; From $$BCMT01 cr $$ECMTC4. 

Input; Frcm the trailer label of the 
active file and frcm the SYSRES label 
information (// TLBL card image) in main 
storage. 



Magnetic Tape Files 95 



is complete, or if the address of the 
user's label routine is not specified, the 
$$ECMT03 phase proceeds as described for 
unlabeled files. 

If standard labels are specified in the 
DTF table, the tape is read in search cf 
the standard file header label, HEFl, 

All user header labels are processed by 
the user's label routine (LAEADER), or they 
are bypassed if the address cf the user's 
label routine is not specified. All file 
header labels preceding (in a backward 
direction) the standard HDFl label are 
bypassed. When the HDRl label is read, 
only the block count contained in the label 
is checked against the block count 
contained in the DTF table. Any 
discrepancy is noted by error iressage 
ai31D. After checking the block ccunt, the 
$$ECMT03 phase proceeds as described for 
unlabeled files. 



$$ECMTOa; Tape Close^ EOV Output 
Forward Chart FD 



Objective: To close an output tape file 
reading in a forward directicn. 

Entry: From the EOF/ECV ircnitcr, $$BCE0V1 , 
to the label TRANSENT. 

Input: Froir the SYSRES label infcriration 
cylinder (// TIBL card image) and from the 
tape being processed. 

Exit; To phase $$BCiyiT02 to determine the 
availability of an alternate assignirent. 

Method; The $$ECiyiT04 phase clcses the 
current active file by writing trailer 
labels and a tapeniark for EBCDIC files and 
two tapemarks for ASCII files. It then 
fetches the alternate switching phase, 
$$ECMT02, to open the next tape reel. 

Upon entry to the $$BCMTC4 phase, a 
check deterirines the type cf labels 
specified in the DTF table. If standard 
labels are specified, the versicn level cf 
the DTF table is verified by exairining bit 
5 of byte 31 in the table. If the bit is 
on, the table was generated by a Versicn 
2.1 onward DTFMT macro. It is then 
necessary to modify the corresponding 
entries in the // TLBL card image in main 
storage with the file serial number 
(EBCDIC) or set identifier (ASCII) , volume 
sequence number (EBCDIC) or file section 
number (ASCII) , and file sequence numbers 
from the DTF table. After the // TLBL card 
image is modified with the DTF table 
information, the following card entries are 
checked and the proper default value 
inserted if any are blank: 



• File identification (FILEID) number 
(default = filename from the DTF table) . 

• Generation number (default = 0001). 

• versicn number (default = 01 for EBCDIC 
files and 00 for ASCII files). 

• Expiration date (default = retention 
period set to days). 

Kcte: If expiration date is net absolute, 
the expiration date is calculated by adding 
the retention period to today's date. 

After updating the // TLBL card image or 
if bit 5 cf byte 31 in the DTF table is net 
en (indicating that the DTF table does not 
contain tape label infcrnaticn and updating 
is bypassed) , the volume sequence number 
(EECEIC) cr file section number (ASCII) in 
the // TLBL card image is incremented by 1 
and the entire updated card image is used 
to build a standard ECVl file label. 

The updated // TLBL card image is then 
written tack onto the label information 
cylinder of SYSRES. If the DTF table does 
contain tape label informaticn, it is also 
updated with the information from the // 
TLBL card image. The EOVl label is then 
written on the tape. 

An exit is m.ade to the user's label 
routine (LAEADDR) to prccess and write user 
labels as specified. After the user's 
label routine is complete, a tapemark is 
written tc indicate the end cf the label 
area. The tape is rewound, rewound and 
unloaded, or left positioned, as specified 
by the user in the DTF table. The block 
count in the DTF table is reset tc zero, 
and phase $$BCMT02 is fetched tc determine 
the availability cf an alternate 
assignment. 

If nonstandard labels are specified in 
the ETF tafcle, an exit is made tc the 
user's label routine to process these 
labels and the $$BCMT04 phase is concluded 
in the manner just described. 



$$EC]XT05: Close Standard^ Nonstandard, and 
Unlabeled Fil es, All Types Except Workfiles 
Charts FE-FF 



Cb jective : Tc clcse a tape input cr output 
file, reading in the forward or backward 
directicn. 

Entry: From the Close Monitor, $$ECL0SE, 
tc the label TRANSENT, cr from $$ECMT03. 

Input: Frcm the SYSRES label infcrm.ation 
cylinder (// TLBL card image) and frcm the 
tape being processed. 
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Method ; This routine closes any iragnetic 
tape workfile. It checks tc deternine if 
the last tape operation was a read or a 
write. If write, a tapemark is, written, 
and the rewind option is tested. If read, 
the rewind option is tested. In either 
case, if NORWD was specified, the rewind 
function is bypassed. If NCRWD was not 
specified, the tape is either rewcund to 
the loadpoint, or, rewound and unleaded, as 
the user requires. The block count in the 
DTF table is reset to zero, and the Clcse 
^?onitor is fetched. 



$$ECMT07; Tape Cl ose, Altern ate Swi tching 

for Sys te m Units Chart FH 



objective; To terminate and switch to an 
alternate drive when an EOV condition is 
encountered en an output tape file assigned 
to either SYSLST or SYSPCH. 

Entry; Froir, the EOF/ECV Monitor, $$BCE0V1, 
or from an output CP module. 

Input ; From the Supervisor I/C tables. 
Refer to DOS/VS Supervisor, SY33-8551. 



To the message writer phase, $$EMSGWR, 
if an alternate drive is net available. 

To the Job Control open phase, 
$$EJCOPT, to open the alternate 
assignment. 

To the logical IOCS module if a unit 
exception occurs while writing a 
tapemark. 



Method; This phase closes the active tape 
output file by writing a tapemark and by 
rewinding and unloading the tape. The 
alternate device is determined, if 
specified, or an exit is made tc the 
message writer phase, $$BMSGViR. If an 
alternate is not specified, er net 
available, the operator can mount a new 
tape on the same drive and continue 
processing. 




Upon entry into the $$BCNT07 
determines if the no rewind opt 
specified in job control switch 
(byte 58 in the comrounicatiens 
the option is not specified, a 
written and a test determines i 
exception bit is on in the CCE 
byte 4). If the bit is not en, 
switching is not required. In 
the tape is backspaced over the 
tapemark written and control is 
the logical IOCS module via an 



a test 
icn is 

byte JECSW2 
region) . If 
tapemark is 
f the unit 
(tit 7 cf 

alternate 
this case, 

last 

returned to 
SVC 11. 



If the unit exception bit in the CCB is 
en, alternate switching is required. The 
tape is reweund and unleaded and an SVC 22 
is issued to seize the system (that is, to 
disable multiprogramming eperaticn). 

Ncte; Additional infermaticn ccneerning 
SVC 22 and the functions of the lUE, PUB, 
and JIE tables is fcund in DCS/VS 
Superviscr, SY33-8551. 

The address of the logical Unit Block 
(LUE) entry is calculated and the pointer 
tc the Physical Unit Eleck (FUE) entry is 
ebtained from, the first byte of the LUE 
entry. The address of the PUB assigned to 
the LUE is calculated, and the PUB mode 
byte (byte 5) is saved for later use. 

The second byte of the LUE entry 
centains a pointer te an entry in the Job 
Information Block (JIE) table if any JIB's 
are specified (chained) fcr the LUE. If 
there is an alternate FUE assigned, it is 
stcred in a JIB. The first JIE in the 
chain is examined fcr a stored alternate 
FUE. If the JIB does not contain an 
alternate FUE, the next JIE in the chain is 
checked, ^hen a stored alternate 
assignment is found, the pointer tc that 
FUE is ebtained from the JIE and inserted 
into the first byte cf the LUE. Any 
remaining JIB's are scanned and updated. 
The standard PUB assignment is stcred in 
the last JIB in the chair. 

After the alternate assignment is 
checked fcr availability, the mcde byte 
saved freir the standard FUE is inserted 
into the alternate FUE. The $$ECMT07 phase 
ceneludes by issuing an SVC 22 tc release 
the system (restore multiprogramming 
eperaticn), and phase $$EJC0FT is fetched 
tc open the alternate assignnent. 

If an alternate assignment is net fcund, 
er net available, initializaticn te print 
message 4121A takes place. 



$$£CMTOM and $$BQMTOVj; Tape Open Message 

Vvriters Chart FK 



Kcte; The tape open message writer phases 
$SEOMT0M and $$BOMT0W perfern the same 
function. The two phases differ only in 
the messages printed and the calling 
phases. 

Cb jeetive; Te print messages tc the 
eperator and analyze the operator's 
response tc a particular message. 

Entries ; 

1. Phase §$BCMTOM — from, tape cpen phase 

$$E0MTC2, $$BCMT03, $$E0iy:TC4, $$ECMT06 . 
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$$EKSGWR; Tape O pen/Clos e Message 

Writer Chart FL 



Register 0. 
iressage* 



The nuirber cf the desired 



Objective; To print messages tc the 
operator and analyze the operator's 
response to a particular message. 

En try : From tape Open/Close phases: 

$$BOMT05 

$$BCMT01 

$$BCMT02 

$$BCMT03 

$$BCMT07 

Input; Pointer, received from the calling 
phase^ to indicate the desired message. 

Exits; 

1. To the calling phase if a legal 
response to the message is received, or 

2. To CANCEL if no console is available, 
or if the response is END 

(end-of -communication) cr illegal. 

3. To $$BJCCPT if entered from tape close 
phase $$BCMT07. 

Messages : 

mi7D NO TM FOUND ON READEK 

ail9A FILE UNEXPIRED 

4121A NO ALTERN DRIVE ASSGN 

41221 EOV ENCOUNTERED 

U125D VOIl LBL FOUND 

ai26l EOV ENCOUNTERED 

ai27A EOV WHILE WRITING EOF 

U130A EOF OR EOV INQUIRY 

4131D BLOCK COUNT ERROR 

41U0A NO ALTERN DRIVE ASSGN 

Note; Messages not requiring printing cf 
label information may also be passed tc the 
$$EMSGWR phase. 

Method; The $$BMSGWR routine is used for 
message writing and response interrogation. 

The calling routine passes the fcllcwing 
information to the $$EMSGWR routine; 



Register 12. 
address. 



The RETRY reply return 



• Register 13. The NEWTAP cr EOV reply 
return address. 



• Register 14. The IGNORE cr EOF reply, 
cr the information type message return 
address. 

• The last two bytes in the name cf the 
phase returned to. 

Each message contained in this phase 
consists cf four sections ; 

1. Option byte. Indicates action to be 
taken after printing the message cr 
valid response (s). 

Bit = EOV cr EOF 

Bit 1 = IGNORE 

Bit 2 = NEWTAP 

Bit 3 = Double message 

Bit a = RETRY 

Bit 5 = Informaticn message (nc 
response required) 

Bit 6 = System unit possible and CANCEL 
not legal response 

Bit 7 = Leave DTF blank. 

2. Displacement byte. Ccntains 
displacement, in bytes, frcm the start 
of the label to the field (s) tc be 
printed. 

3. Length byte. Contains the length, in 
bytes, cf the label irfcrmaticn tc be 
printed. 

4. Message. 

The $$BMSGWR message viriter phase 
assembles and writes the required message 
and receives and analyzes the response 
received frcm the operatcr. The phase then 
passes ccrtrcl tc the prcper cpen phase cr 
tc the cancel routine. If ccntrcl is 
returned tc an open phase, bit 4 cf byte 89 
in the communicaticns regicn is set tc 
indicate tc the open phase that entry is 
made en a return frcm a message writer 
phase. 
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SECUENTIA I ACC ESS DASD FI LES 



Sequentially-organized DASD (SD) files are 
contained on DASD devices^ and are 
processed by the Sequential Access Method. 
These files, defined by the DTFSD nacre, 
are either input or output data files, or 
work files. 



STORAGE AREAS 



INFUT/CUTPUT AREAS 



A sequential DASD file contains DASD 
records that are processed viith a beginning 
DASD address and that continue in order 
through the records on successive tracks, 
cylinders, and volumes to the ending 
address. 



A sequential DASD file is contained 
within one or more sets of liirits called 
extents. These extents are specified by 
the user with job control cards (// DLEL 
and/or // EXTENT). If the logical file 
consists of irore than one extent, each 
extent is accessed in the sequence 
specified by the user. The records within 
each extent irust be adjacent and contained 
within one volume (pack or cell) . The 
extents need not be adjacent, and they may 
be on more than one volume. 



The data handling logic ircdules for 
files defined for logical IOCS by the DTFSD 
macro are provided by the associated module 
generation macro, SDMCDxx, where the xx is 
determined by the record format and 
function of the file. 



The logical IOCS GET-PUT nacre instructions 
allcw the programmer to use cne cr two I/O 
areas and prccess records either in a work 
area or in an I/O area. 

When blccked records are to be processed 
in an I/C area with re wcrk area specified, 
(or when unblocked records are tc be 
processed in two I/O areas, with nc wcrk 
area specified) the DTFSD macro instruction 
defines the register ICREG. Logical IOCS 
uses this register to specify the address 
of the logical record that is currently 
available for processing by the problem 
program. 

If variable-length blccked records are 
built directly in an output area (s) with nc 
wcrk area specified, the DTFSD macro 
instruction specifies another register, 
VARELD. This register provides the 
programmer with the remaining space in the 
cutput area after each PUT instruction has 
been issued. 



NCDULE SAVE AREAS 



Sequential DASD files are opened and 
closed by logical transient routines that 
are fetched by the open and close monitors 
(refer to Volume 1) . The open routines 
provide procedures for checking each file 
before any records are processed. The 
close routines provide procedures for 
terminating each file after all records are 
processed. 

Sequential DASD files can also be 
defined for physical IOCS if the user 
intends to use physical IOCS macros, such 
as EXCP, WAIT, etc. These files are 
defined by a DTFPH macro. 

In addition, sequential DASD files can 
be defined by the device independent 
macros, DTFDI and DTFCP. These files are 
described in the section "Device 
Independent Files". 



If the RDCKLY=YES parameter is included in 
the module generation macro, the module is 
reentrant and must never be mcdified by the 
problem program. Each DTF referencing the 
module must be associated with a 72-byte, 
dcubleword aligned save area which is used 
by the module during execution. The 
address of the save area is passed to the 
module in register 13. 

If the module is to be shared by DTFs in 

different tasks, the module must be made 

reentrant. This is done by associating a 

unique save area with each DTF. 

In sequential DASD, the save area 
contains user general registers, module 
general registers, switches and other 
informaticr needed by the module. Figures 
30 through 39 illustrate the format of the 
save area for each logic module. 
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SDMCDFO - Fixed-Length Output 



T 

Byte I 
+ 

Displ. 

DEC HEX 



8 

10 

24 

32 

^Q 

48 

56 



I 



I 
-J.- 



I 4 I 5 I 
.4 ± A- 

User Register 10 



I 
.JL- 



64 



8 
10 
18 
20 
28 
30 
38 

40 



User Register 9 



User Register 11 
User Register 13 
Module Register 15 
Module Register 1 
Module Register IC 
Module Register 12 



Count Field of 
Previous Record 



User Register 12 
User Register 14 



Module Register 

^ 

X'FF'* I 

X 

Module Register 11 
Module Register 13 



H 



H 



Previous I/O 
Area Address 
(continued) 



Current I/O Arec 
Address 



I 
I 
I 



iFrevicus 
|I/C Area 
lAddress 

.X 



♦ Indicates to OPEN that nc irore ElFs are to te opened. 

**If ERREXT='!^ES, bytes 32-39 contain the paraireter list that includes the 
address of the DTF and the storage address of the block in error. 



Figure 31. SDMODFO save area. 
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SDMCDVO - Variable-Length Output 



Byte I 



-T- 
I 



1 Displ, 
1 DEC HEX 
1 


1 8 


8 


|16 


10 


\2^ 


18 


|32 


20 


|ao 


28 


|48 


30 


|56 


38 


164 


40 



1 User Register 6 | User Register 7 | 

L . . «.«.« ^ J.. «« „••„„««„•—„„- J 


r 1 — — „—™™™-™-^ 

1 User Register 8 | User Register 9 | 

L «. « J.— — ^-.„„„— « —« — J 


r T 1 

1 User Register 10 | User Register 11 | 


r — — • — ^— .-— -- — —--„«„„„„„— .-„-^ 

1 User Register 12 | User Register 13 | 

L _^^ ^ J. „.«.^^««^«-.«„— .« « • J 


r — T ~~~~— — — ~~ • — ^ 

1 Module Registers 6, | Kcdule Registers | 
1 7, or 10 1 7 or 8 | 


r "• T 1 

1 Module Registers | Module Register or 15 | 

1 8 or lU 1 1 

L « «. « ^ 4. ««„ «««. .«„ « « . J 


r • ~ T — -™ — ™ — ™- — ^ 

1 Module Register | Module Register 1 ♦♦ | 
L « 1 . «„„„ « .•«-..«„ J 


1 Module Register 1 |X'FF'* | | 


r — — — T ~ 1 

1 Not used 1 1 

1 „—„„X -—-.—.-.—-.«———.—.«-. — ««-——i 


r 1 — 1 

1 Not used 1 1 



♦ Indicates to OPEN that no irore EIFs are to be opened. 

**If ERREXT=YES, bytes 52-59 contain the parameter list that includes the 
address of the DTF and the storage address of the block in error. 



Figure 34. SDMCDVO save area. 
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SDMCDUO - Undefined Oi3tput 



Eyte I 



I 



i. 1 J. ± ± 1 ± X X ^ 

Eispl. 

I DEC HEX 




8 
|16 

32 

156 
64 



8 
10 
18 
20 
28 
30 
38 
UO 



User Register 7 | User Register 8 


User Register 9 | User Register 10 


User Register 11 | User Register 12 


User Register 13 | Nodule Register 12 


Module Register 13 | N.cdule Register m 


Module Register 15 | Module Register 


Module Register 1 ♦* |X'FF'* | 

-j. JL 

Not used 1 


Not used 1 



L X . X J 

♦ Indicates to OPEN that no irore ElFs are to be opened. 

**If ERREXT=YES, bytes 45-55 contain the parameter list that includes the 
address of the DTF and the storage address of the block in error. 

Figure 37. SDMCDUO save area. 



SDMCDUU - Undefined Input with Update 



J. ^- 

Eyte I 



-7* 

I 



I 



I 



|. + X X X 1 X X X ^ 

Cispl, 
I DEC HEXi 





8 

16 

124 

32 

i40 

48 

i56 

64 




8 
10 
18 
20 
28 
30 
38 
40 



User Register 8 






User Register 9 


User Register 10 






User Register 11 


User Register 12 






User Register 13 


Module Register 8 






Module Register 9 


Module Register 12 






Module Register 13 


Module Register 14 






Module Register 15 


Module Register C 






Module Register 1 ♦* 


~T " 

X'FF'* JLast Record Switch 

. ^ _x — —- . ^ 




Read Data CCW (Bytes 0-3) 


Read Data CCW (Bytes 


4-7) 







L X X J 

♦ Indicates to OPEN that no irore ClFs are to be opened. 

**If ERREXT=YES^ bytes 52-59 contain the parameter list that includes the 
address of the DTF and the storage address of the block in error. 



Figure 38. SDMCDUU save area. 
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J, ^ ^ ^ 


|DTF Assembly- 








1 Label 


Eytes 


Bits 


Function 


L««« 








|.... 







'""'""*—'"*'""""****'— "*—*~"""""'"^— '—"—*— '*""""*""^^"*— ' "*"^ **""—* "^*"""^"*— ""^"*—^ 


1 SFilenarne 


0-15 
(0-F) 




Ccirirard Ccntrcl Elcck (CCE) . 




16 





1 = Dequeue old vcluire extents. 




(10) 


1 


1 = Duiriry OPEN to obtain extents from 
j label track. 






2 


1 = File assigned 'IGN' (CCEOL) . 






3 


|1 = Track hold cpticn specified. 






4 


1 = DTF relocated by CPENR. 






5 


|1 = Input trailer labels tc be processed 
at clcse tiire (CCEOL only) . 






6 


|1 = Spanned processing. 






7 


1 = CCEOL end-of-extent option specified. 




17-19 




lAddress of logic ircdule. 




(11-13) 








20 




|DTF type for CFEN/CLCSE (X'20' = sequential 




(14) 




access DASD files). 




21 





1 = 2321 (Version 1/2 only). 




(15) 


1 


|1 = Elccked file. 






2 


1 = Work file. 






3 


|1 = Vvcrk area specified. 






4 


1 = Not a Version 1 type table. 






5 


|1 = Cpen, = Closed. 






6 


1 = Inputs = Output. 






7 


|1 = User labels specified. 




22-28 




IFilenaire (DTF Naire) . 




(16-lC) 








29 




IDevice Type Cede: 




(ID) 




X'OO' = 2311 
IX'CI' = 2314, 2319 
X'02' = 2321 
1X'C4' = 3330. 
X«08' = 3340 general 
|X«C9' = 3340 35ME 
X'OA* = 3340 70ME. 

Note: In previous versions, last byte of 
Ifilenaire contains device type cede. 




30-35 




lAddress of Forirat 1 label in VTCC (ECCHHR). 




(lE-23) 








36-37 




IVcluire sequence nvirber. 




(24-25) 








38 




|Open ccirirunicaticrs byte. 




(26) 




Ilnput File 









1 = No more extents. 






1 


|1 = Update file. 






2 


1 = Process trailer labels. 






3 


|1 = Exit tc user's ECF routine. 






4 


1 = Next extent on nevi voluire. 






5 


|1 = Return to clcse routine. 






6 


1 = Process header labels. 






i 7 


jl = Extent switch. 



L 



— JL JL JL . . J 



Figure 40. DTFSD: Data files (1 cf 12) 
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r 


J ^ ^ 


JDTF 


Assemblv 










Label 


Bytes 


Bits 


j Functicn 


L^.. 


———.——-.-., 


,-.««— ^—— 




L 


r — 


— —«.•.-.,.-., 








|. 

1 Fixed Lenqth Record Modules: 




|Nct first entry after Open (INPUT and 










lUFCATE) . 










|Nct first write after Open (OUTPUT). 








1 


1 Short record (INPUT and UPDATE without 
[truncation) • 








2 


1 Partial block written (OUTPUT). 








3 


|ERROPT=SKIP (INPUT). 
|TRUNCS=YES (OUTPUT). 








a 


|End-of-file record written (OUTPUT). 
|End of extent (UPDATE). 








5 


JTrunoation not specified (used by OPEN 
jroutines) . 








6 


[Write block of records (UPDATE). 








7 


|End of file (UPDATE). 











1 Variable Lenqth Record Modules: 




[Not first entry after OPEN (INPUT and 










[UPDATE). 










[Write reccrd (OUTPUT). 








1 


[Wrong length record (INPUT). 

|TRUNC£=YES (OUTPUT). 

[Second GET operation perfcrired (UPDATE). 








2 


[Return to close routine (OUTPUT). 
[Update specified (UPDATE). 








3 


|Not first entry after OPEN (OUTPUT). 








4 


[New extent required by CLOSE. 








5 


[Capacity of 1/0 area exceeded (OUTPUT). 
[Second GET required (UPDATE). 








6 


[Not first read (INPUT). 
[Seccnd GET issued (UPDATE). 








7 


[Unnecessary to read (INPUT). 
[Track capacity exceeded (OUTPUT). 
[Save record count (UPDATE). 

[Undefined Length Record Modules: 











[Net first entry after OPEN (ALL modules). 








1 


[Save record count (UPDATE). 








2 


[Return to close routine (OUTPUT). 








3 


[Second GET issued (UPDATE). 








4 


[Not used. 








5 


[PUT ccirirand issued (UPDATE) . 








6 


[End of file reached (UPDATE). 








7 


[Multi-track operation (UPDATE). 






74-75 




[Block size irinus one. 






(4A-4E) 










76-80 




jCCHHR = Extent lower lirrit and record 






(4C-50) 




[nuirber. Field is used as a search arguirert 
i bucket by the logic modules. 






81 


1 


jl = FEOVD has been issued (output only) 






(51) 










81-83 




[Address of user wrcng-lengtb record rcutire 






(51-53) 




if input file. 
[Track capacity counter if cutput file 



L X JL J. 



J 



Figure 40. ETFSD: Data files (3 of 12). 
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The following section is added tc the DTFSD table for fixed-length record 
input files. 

P y y J — • • 

DTF Assembly I | | 
Label I Bytes |Bits| 



Functicn 



h 



If RECFORM=FIXELK and TRUNCS=YES : 



I 136-1U3 I 

I (88-8F) I 

I I 

I I 

I 144-151 I 

I (90-97) I 



JRead Count CCV^. 

I 



iCcunt field infut area- 



I If C0NTR0L=YES, the following section is added: 

^ ^ — ^ 

I 152-167 I jcontrol CCB. 
I (98-A7) I I 



I 168-175 I 
I (A8-AF) I 



iCcntrcl CCW, 



If UPDATE=YES; 



I 136-143 I 

I (88-8F) I 

I I 

I 144-151 I 

I (90-97) I 

I I 
I 152-159 I 
I (98-9F) I 
X- 



j Search ID Equal CCW, 



JTIC CCW. 



jverify CCW. 



K 

I If C0NTR0L=YES, the following section is added: 

^ ^ — ^ 

I 160-175 I ICcntrcl CCB. 
I (AO-AF) I I 

I I 

I 176-183 I 

I (B0-B7) I 

-X J.- 



jccntrcl CCW, 



Figure 40. ETFSD: Data files (5 of 12). 
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The following section is added to the DTFSD tafcle for fixed-length record 
output files. 



DTF Assembly 
Label 



I I 
Bytes I Bits I 



Function 



136-143 
C88-8F) 

144-151 
(90-97) 



152-159 I 
(98-9F) I 

X- 



j Search ID Equal CCW. 

I 

I 

I TIC CCW. 

I 
I 
jVerify CCW. 



If CONTROL is not specified: 



160-163 I |End-cf-extent routine address (priirarily 
(A0-A3) I I used hy CCBOL compiler). 



If C0NTR0L=YES: 



160-175 I 
(AO-AF) I 

I 
176-183 I 
(E0-E7) I 

I 
184-187 I 
(B8-BB) I 
X- 



j Control CCB, 



iContrcl CCW. 



i 



|End-cf-extent routine address (primarily 
I used by CCBCL ccirpiler) . 



Figure 40. DTFSD: Data files (7 cf 12), 
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The following section is added tc the ETFSD takle for variable length 
record and undefined length record input files 



DTF Assembl]^! | | 

Label I Eytes |Bits| 



Function 



If UPDATE=YES: 



14U-151 
(90-97) 



152-159 
(98-9F) 

160-167 
CA0-A7) 

168-175 
(A8-AF) 

176-183 
(E0-E7) 

18U-191 

(E8-BF) 



Search ID Equal CCW. 



TIC CCW. 



Verify CCW. 



Count field input area. 



Ccunt field save area if ene I/C area. 



Count field save area if twc I/C areas. 



If C0NTR0L=YES:* 



192-207 
(CO-CF) 

208-215 
(D0-D7) 



jCcntrcl CCB. 



I control CCW. 
I 

-JL 



The following section is added tc the ETFSD table for variable length 
spanned record update files. 



p ^. 

|DTF Assembly 1 
1 Label 1 

L ±. 


Bytes 


1 1 

|Bits| FuncticE 


|. ^. 


216-219 
(D8-DB) 

220-223 
(DC-DF) 


T 




JLcgical record length. 

1 
1 
|RX type instruction. 

1 
1 




22a 

(EO) 






1 

2 
3 

a 

5 
6 
7 


1 

|Net used. 

|1 = Skip segirent. 

|1 = Spanned first time. 

|1 = Null segirent. 

|1 = Spanned PUT return. 

|Net used. 

|Net used. 

|1 = Nc update 
1 




225-227 

(E1-E3) 






1 

jPcinter in logical record. 

1 
1 




228-235 

(E4-EB) 






1 

1 Ccunt save area. 

1 
1 




236-239 
(EC-EF) 






1 

[Extent status save area. 

1 



L , J. X JL J 

♦These bytes are always generated when spanned processing is 
specified. 



Figure UO. ETFSD: Data files (9 cf 12), 
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The following section is added to the CTFSE table for variable length 
spanned record output files. 



J. y. 

|DTF Assembly 1 
1 Label 1 


Bytes 


•T 

|Bit 


1 
s| Function 


|.„ -,^-^-.««^. 


200-203 
(C8-CB) 


T 




ILcgical record length. 

1 
1 




204-207 
(CC-CF) 






1 

|RX type instruction. 

1 
1 




208 

(DO) 






1 

2 
3 

^ 

5 
6 
7 


1 

|Net used. 

|Net used. 

|1 « leading segirert. 

jl = Output bleck truncated. 

|1 = Erd of track. 

jl = Track truncated. 

|1 = Save count. 

jl = Vclumes spanned. 
1 




209-211 
(D1-D3) 






i 

1 Pointer in logical record. 

1 
1 




212-219 

(E4-DE) 






1 

iccunt save area. 

1 
1 




220-223 

(DC-DF) 






1 

[Extent status save area. 

1 



L . . X^ X X ^ J 

♦These bytes are always generated when spanned processing is specified. 
Figure 40. DTFSC; Data files (11 of 12). 
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^ J. 

|DTF Assembly 1 
1 Label 1 
L . J.. 




Bytes 


r T 

1 
Bits| Functicn 

L 


r "• — T 

1 SFilename | 


0-15 
(0-F) 
16 
(10) 


0-1 
2 
3 

a 

5-7 


__j. 

jCoirirand Control Block (CCE). 

INct used 

|1 = File assigned 'IGN' (CCECL) . 
|1 = Track hold option specified. 
|1 = ETF relocated by CPENB. 
|Nct used. 




17-19 
(11-13) 




JAddress of logic ircdule. 




20 
(la) 




|DTF type for CFEN/CLCSE (X'20' = sequential 
jaccess DASD files). 




21 
(15) 



1 

2 
3 

5 

6 
7 


|0 = disk device. 

|1 = CLOSE iracrc is not to delete Forirat 1 

1 and Forrrat 3 file labels. 

|1 = Work file. 

|Type of open: 1 = Pointy = Normal. 

|1 = Fcutine entered frcir close routine. 

|1 = File opened. 

|0 = File closed. 

|Nct used. 

|1 = Reentry to close routine. 




22-28 
(16-lC) 




IFilenaire (DTF Kaire) . 




29 
(ID) 




iDevice Type Code: 
IX'CC = 2311 
IX'Ol' = 23ia, 2319 
IX'Oa' = 3330. 
|X-08« = 3340 general 
|X'C9' = 3340 35y.E 
IX'OA' = 3340 70iyiE. 

|NCTE: In previous versions^ last byte of 
Ifilenaire contains device type code. 




30-31 
(lE-lF) 




iTrack capacity counter. 




32-35 
(20-23) 




lAddress of Forirat 1 label in VTCC (CCHR) . 




36 
(24) 




[Extent sequence nurrber. 




37 
(25) 


0-2 
3 

a 

5 
6-7 


jopen Coirmunications Eyte. 

JNot used. 

|1 = Syirbolic unit in DTF. 

|1 = Next extent or nevt vcluire. 

|1 = Extent opened. 

JNct used. 




38 
(26) 




|Lc\»ver head linit. 




39 
(27) 




1 Upper head liirit. 



X J. 



J 



Figure 41. ETFSD: Workfiles (1 of 3). 
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r T- 

|DTF Assembly! 
1 Label 1 


Eytes 


1 
Bits| Function 

L^«.„i 


1 i' 






, ^ ^ 




61 
(3D) 




1 

2 
3 

4 
5 
6 

7 


Sviitch byte used ty logic ircdule. 
1 = First write entry indicator. 
|1 = Write update indicator. 
1 = POINTS macro issued. 
|Not first record en track. 
1 (RECFCRM=UNDEF). 
|1 = Track upper liirit reached. 
Not used. 

|1 = Check after read/write. 
Not used. 




62-63 

(3E-3F) 




IMaxiiruir record length. 




64 
(40) 




iverify chain bit. 




65-67 
(41-43) 




Address of user's EOF routine. 




68 
(44) 



1 
2 
3 
4 
5 
6 
7 


iLogical indicators. 
ll = ERROPT = address. 
|1 = EPRCPT = IGNORE. 
1 = Fixed-length unblocked records. 
|1 = Verify specified. 
|1 = ERROPT = SKIP. 
|1 = Reread after read error. 
Not used. 
|Not used. 




69-71 
(45-47) 




lAddress of user read/virite error routine. 




72-143 
(48-8F) 




CCW chain for work files (see Figure 24), 




144-151 
(90-97) 




llnput area for Verify CCW and Read Count 
CCW. 



L X JL JL-.^ J 

Numbers in parentheses are displaceirents in hexadeciital rotation. 
Figure 41. DTFSDj Workfiles (3 of 3). 



DTFPH MACRO 



When physical IOCS macro instructions are 
used to process a sequential DASD file with 
standard labels^ and the user wishes to 
have the labels checked, the file must be 
defined by a DTFPH (Define The File for 



PHysical ICCS) macro. To define a 
sequentially-organized DASD file in this 
iranner, the parameters specified in the 
operand of the DTFPH macro instruction roust 
include DEVICE=2311/2314/333C/334C/2321 and 
J(CUNTED==SIKGLE. Figure 42 illustrates the 
ETF table generated to define the file for 
physical ICCS. 
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"T- 

I 



T- 

Bits I 
+- 



[Bytes 



Furcticn 



39 
(27) 

ao 

(28) 

ai-a3 

(29-2E) 

aa-47 

(2C-2F) 

48-51 
(30-33) 

52-53 
(3a-35) 

54-57 
(36-39) 

58-59 
(31V/3B) 



60-63 
(3C-3F) 

64 
(40) 

65-67 
(41-43) 

68-71 
(44-47) 



72 

(48) 

73 

(49) 

74-75 
(4iV-4E) 

76-80 
(4C-50) 

81-83 
(51-53) 



Sequence nuirber of current EXTENT teing opened. 



Sequence nuirber of last EXTENT opened (not a console 
EXTENT entry) . 

Address of user's label rcutine. 



Address of lOAREAl. 



CCHH address cf user's label track • Initially 
X«80000000'. 

Lower head liirit (HH) X'OCOO' if type 1; X'OOnn' if 
type 128 (n = head liirit). 

EXTENT upper liirit (CCHH) . 



BE seek address: 
=X*OOOC' if disk device. 
=X'00nn' if 2321 where 'nn' 

EXTENT lower limit (CCHH) . 



= bin number. 



Record nuirber. 1 = Input, = Output. 



Not used. 



CCHH control bucket. 

CCHH = X'1309C413' if 2321 - type 1. 

CCHH = X'00C80009' if 2311, X«00C8C013» if 2314 or 

2319, cr X'01940012' if 3330 - type 1. 
CCHH = X'130904nn« if 2321 - type 128. 
CCHH = X'OOCSCOnn' if 2311, 2314, 2319 - type 128 
CCHH = X'019400nn' if 3330 - type 128 
CCHH = X'015CC00B' if 334C 35UB 
CCHH = X'02E8000B« if 3340 70WB 

where nn = current upper head nuirber. 

Record nuirber. 



Not used. 



Not used. 



CCHHR bucket = extent lower limit and record nuirber. 



Not used. 



Numbers in parentheses are displacements in hexadeciiral rotation, 
Figure 42. BTFPH: Sequential disk (2 of 2). 
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Output 



Typefile 




X'07' 


&Filename.S,X<40',6 


SEEK 


x'3r 


&FiUname.S + 2,X'4(y,5 


SIDE 


X'08' 


*-8,0,0 


TIC 


X'lD' 


,&IOAREA2,0, Block Length + 8 


WCKD 


X'31' 


&FiUnaiTie.S + 2,X'40',5 


SIDE 


X'08' 


,*-8,0,0 


TIC 


X'30' 


/,X'30M 


VERIFY 



X'07',&F;lename.S,X'40',6 

X'3r,&Fnename.S + 2,X'40',5 

X'08',* -8, 0,0 

X'lD', &IOAREA1,0, Block Length + 8 

X'3T,&Filename.S + 2,X'40',5 

X'08', *-8, 0,0 

X'3O',*,X'30',l 



SEEK 

SIDE 

TIC 

WCKD 

SIDE 

TIC 

VERIFY 



Input 



Variable - Length Records 



Typefile 



Notes; 

1 . Shaded Areas -Assembly Time 

2. Unshaded Areas- Execute Time 




X'07',&Filenome.S,X'40',6 

X'31',&Filename.S+2,X'40',5 

X'08',* -8, 0,0 

X'06',&IOAREA1,X'40', Block Length 

X'92',* +8,0,8 

DC 2F'0' Count Area 



SEEK 

SIDE 

TIC 

RD 

RID 



X'07',&Fllename.S,X'40',6 | SEEK 

X'3T,&Filename.S + 2,X'40',5 ' SIDE 

X'08',*-8,0,0 1 TIC 
X'06',&IOAREA1,X'40', Block Length | RD 

X'92',* +32,0,8 I RID 

X'3T,&Filename.S + 2,X'40',5 | SIDE 

X'0e',*-8,0,0 I TIC 

X'06',*,X'30',146 ] VERIFY 

DC 2F'0' Count Area ' 

DC 2F'0' Count Save Area i 

DC 2F'0' Count Save Area for 2 I ''O Areas 

I 



Figure 43. DTFSD channel programs (2 of 3) 
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If the ASSGN IGN function is tc be used 
for an SD LICCS file, it is the tsser's 
responsibility to test for the IGNORE 
indicator posted in the DTF after an OPEN 
has been issued to the file. If this 
indicator is on, the user should net issue 
I/O to that file. 



SDMOEFI With Trunca tion; GET Macro Charts 
GA-GE 



Objective: To read fixed-lergth blocked or 
unblocked records froir a sequential DASD 
file with provisions for truncation. 



Entry: Frcir the GET iracrc expansion. 



FIXED-LENGTH RECORD MODULES 



Exit: To the probleir prcgrair. 



The basic modules for accessing 
fixed-length records are: 



• SDMODFI - Fixed-length input records. 



• SDMODFO - Fixed-length output records. 



SDMCDFU - Fixed-length input records for 
update. 



Each of these irodules actually consists of 
two modules (depending on whether TRUNC=YES 
is specified as an SDMCDFx parameter) to 
provide a total of six different modules 
for sequential DASD fixed-length record 
formats. 



The modules are generalized routines 
that work with one or more unique DTF 
tables to perform their various functions. 
Each module can function using: 

• A work area (optional) . 

• 1 or 2 I/O areas. 

• Error options (if specified at module 
generation time).. 

• ERET macro (if ERREXT=YES is specified 
at module generation time). 

• Blocked or unblocked fixed-length 
records. 

• CNTRL macro (control function, if 
specified at module generation time). 

• Update function (input files) . 

• RDONLY option (if specified at module 
generation time) . 

• Track hold function, if specified at 
module generation time (input files with 
update function) . 

The options listed must be defined by the 
DTFSD macro statement. 



y.et hod : This logic module reads 
fixed-length blocked or unblocked records 
and makes the logical record available to 
the user in a work area, if one is 
specified. 



If blocked records are being read, and 
TRUNCS=YES paramieter has been specified, 
truncated records may be included in the 
file. The module must use the data length 
from each count field to determine the 
length of the record to be read. The first 
GET macro issued to the file results in two 
separate read operations. The first 
operation reads the count information to 
determine the address and length cf the 
data area of the record. The search 
argument is initialized with the count 
identifier field. The data length from the 
count field is compared with the defined 
block size from the DTF table, if the data 
length is greater than the block size, this 
routine initializes the Read Data COW with 
the blcck size and sets the incorrect 
length indicator in the CCE. Otherwise, 
the Read Data COW is initialized with data 
length. 



The second read o 
area cf the record a 
the next consecutive 
The count field is u 
search argument and 
Read Data CCW. Subs 
the data area cf the 
count field of the n 
record. If unblocked 
or TRUNCS=YES parame 
specified, only one 
performed at a time, 
of the record is rea 



peration reads the data 
nd the count field of 

record in the file, 
sed to update the 
byte court field of the 
equent GET macros read 

record and then the 
ext consecutive 
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d. 



If the extent upper limit is exceeded, 
this module issues an SVC 2 to fetch 
$$ECFEN tc open the next extent for the 
file. Errors are also processed if ERROFT 
is specified as a DTF and module parameter 
and if the problem program has specified 
error routines. If ERREXT is specified, 
additional errors are returned tc the 
problem program for processing. 
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If the extent upper limit is exceeded 
while in the PUT routine Icgic, the next 
extent is opened and the partial fclcck or 
end-of~file record is written as the first 
record of the next extent. 



SDMCDFO Without Truncation: Clcse Routine 

Chart GE 



Objective: To write any reiraining records 
and/or the end-of-file reccrd in sequence 
on a DASD file. 



Entry; Froiti the close B-transient, 
$$ECSDC1. 



Exit: To the clcse E-transient^ $$E0SCC1 
via an SVC 9, 



Method: This routine deterirines if there 
are any logical records to be written en 
the file. If so, it initializes the count 
field with the data length and initializes 
the Write COW with the data length plus 
eight. It also turns the partial block 
switch on. This phase then branches tc the 
PUT routine to write the partial block on 
the file. Control then returns tc this 
routine. 

The end-cf-file switch is turned on and 
control branches to the PUT routine again 
to set up and write the end-cf-file record. 
This phase then exits to $$ECSDC1 via an 
SVC 9. 



SDMCDFO Without Truncation: 
Chart GF" 



PUT Macro 



Objective: Tc write records in 
a DASD file. 



sequence en 



Entry: Frcir the PUT iracrc expansion. 

Exit: To the probleir prcgrair. 

Methcd: This logic irodule writes cnly 
fixed-length blocked cr unblocked records. 
Bowever, if the close routine turns the 
partial hlcck switch on, a truncated record 
iray be written , because no padding is used 
to fill out the last block of records. 

If the user specifies a wcrk area, this 
routine ir.oves the logical reccrd froir the 
work area to the output area. It then 
updates the current I/O area address by the 
logical record size, and deterirines if the 
end cf the block has been reached. If not, 
ccntrcl returns tc the user. 

When the block is full, the search 
arguirent reccrd nuirber is updated and the 
blcck address, key length, and data length 
are set in the count field. Then, the 
blcck is written on the file. 

After the reccrd is written, the search 
arguirent is updated, and if the extent 
upper liirit is exceeded, $$BCPEN is called 
to open the next extent. Control then 
returns tc the prctleir prcgrair. 

If ERRCPT is specified as a parameter, 
errors are processed as each reccrd is 
written. If ERREXT is specified, 
additional errors are returned tc the 
prcbleir prcgrair for processing. 



SDMCDFO With Truncation: TRUNC Macro Chart SDMODFU With Truncation; 

GE 



Objective: 
be written, 



To cause a truncated record to 



Entry: Froir the TRUNC macro expansion. 
Exit: 

• To the SDMODFO PUT logic. 

• To the problem, program. 

Method: A test determines whether there 
are any records in the output area tc be 
written. If none, control returns to the 
problem program. Otherwise, the phase sets 
a truncation switch to indicate that the 
TRUNC macro instruction has been issued, 
and control branches tc the SDMCDFO PUT 
logic to write the truncated record. 



GET Macro Charts GG-GJ 

PUT Macro Chart GN 

Objective: To read fixed-length blocked or 
unblocked records to be updated 
(optionally) by the problem program, and 
rewrite the updated records en a sequential 
DASD file. 

E n t ry : 

• From the GET macro expansion. 

• From the PUT macro expansion. 

Exit: To the problem program. 

Method: This logic module reads 
fixed-length blocked cr unblocked records, 
that are to be updated optionally by the 
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If ERROPT is specified as a parameter, 
the irodule tests for errors as each record 
is read. If ERREXT is specified, 
additional errors are returned tc the 
problem program for processing. If a 
wrong-length record error occurs, the 
residual count is tested. If the residual 
count is zero, a genuine wrong length 
record error exists. Otherwise, the 
residual count is decreased ty the logical 
reccrd size until the result is zero or 
negative. If negative, a genuine 
wrong-length record error exists. If zero, 
the record is a valid short reccrd, and is 
processed as a normal record. 

When a PUT macro is issued tc the file, 
the module sets a switch in the ETB table 
to indicate that a PUT command has been 
issued. If the problem program has 
specified a work area, the mcdule moves the 
logical record to the output area. Control 
then returns to the problem program. 

Because the routine that writes the 
reccrd is incorporated within the GET macrc 
logic, a GET macro or a CLOSE macrc must be 
issued to actually write the reccrd. After 
the initial entry to the module, a test 
determines whether another reccrd is 
needed. If not, the mcdule moves the 
logical record to a work area, if specified 
by the problem program, and control returns 
to the problem program. If the track hold 
operation has been specified, every read 
operation reads a record and hclds the 
track. 

If another record is needed, the module 
determines whether a record must be written 
out first. If the PUT-issued switch is on, 
the problem program has issued a PUT macro 
and the record in the output area is 
written before reading the next record. If 
the PUT-issued switch is off, the mcdule 
ignores that record in the output area and 
reads the next record. In either case, if 
the track hold option has been specified, 
the module issues an SVC 36 to free the 
held track before reading the next record. 

If the extent upper limit is reached, 
the module writes the remaining records for 
the extent, if necessary, and then issues 
an SVC 2 to fetch $$BCPEN tc open the next 
extent for the file. 

When end cf file is reached, the module 
writes any remaining records and frees any 
tracks that have been held (if the track 
hold option is specified) . The mcdule then 
fetches $$ECPEN to exit to the prcblem 
program's end-of-file routine. 



SDMCDFU: Close Routine: 



With Truncation Charts GG-GJ 



Without Truncation Charts GK-GK 

Objective: Tc write any remaining records 
in sequence on a DASC file. 

Entry; From the close B-transient, 
$$ECSDC1. 

Exit; Tc the close E-transient, $$B0SEC1. 

Kethcd; The close routine uses the GET 
macrc logic of its respective mcdule, and 
has the same entry point to the module as 
the GET macro. 

The routine determines whether there are 
any remaining records to be written. If 
so, the remaining records are written and 
control returns to the clcse B-transient, 
$$E0SDC1, via an SVC 9. 



SEMCCFU; CNTRL Macrc, Fixed-Length Records 

Chart GN 



Chjective; Tc perform a ncndata operation. 

Entry; Frcm the CNTRL macrc expansion. 

Exit: Tc the prcblem prcgram. 

l^ethcd; The CNTRL macrc instruction causes 
a seek operation on a EASE device or a 
restcre operation on a 2321. The routine 
waits fcr the completion cf any previous 
I/C operation. It then initializes the 
ccntrol CCE with the symhclic unit address 
for the file, moves the ccntrol command 
code into the control CCW, ard leads the 
address of the CCE into register 1. The 
routine issues an SVC tc perform the 
control operation and returns ccntrol to 
the problem program. 



SEMCDFUj, RELSE Macro, Fixed-Length Records 

Chart GN 



Cbjective: Tc cause a physical read 
operation to be performed when the next GET 
macrc is issued by the prcblem prcgram. 

Entry: Frcm the RELSE macrc expansion. 

Exit; Tc the problem prcgram. 

Wethcd; This routine, used cnly in 
ccnjuncticr with blocked input records, 
causes the remaining reccrds in an input 
block to be bypassed. It sets the current 
pointer tc the end of the input area, so 
that the next GET macrc instruction causes 
a new physical reccrd tc he read into the 
input area. The first logical reccrd cf 
that block is made available tc the problem 
prcgram. 
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Exit; To the problem prograrr. 

Method; This routine, used only in 
conjunction viith blocked input records, 
causes the remaining records in an input 
block to be bypassed. It sets the current 
pointer to the end of the input area, so 
the next GET macro instruction causes a nev? 
physical record to be read into the input 
area, and makes the first logical record of 
that block available to the prcbleir 
program. If spanned records are being 
processed, the entire block cf Icgical 
spanned records is bypassed. 



SDMCDVO ; 



PUT Macro Charts HD-HF 



Objective: To write variable-length 
blocked or unblocked records in sequence on 
a DASD file. 

Entry; From the PUT macrc expansion. 

Exit; To the problem program. 

Method; Because variable-length records 
are written, this module must keep track of 
the number of bytes remaining on the track 
for each reccrd processed (if all records 
are unspanned) , and must calculate the 
num.ber of bytes remaining in the output 
area for the problem program. 

For each record to be written, this 
routine increases the output area address 
and accumulated data length by the current 
reccrd size. A test then determines if the 
reccrd fits en the track. If the record 
fits, a test determines whether the output 
area is full. If not full, the record is 
moved to the output area (if a wcrk area is 
specified) , addresses are updated and the 
amount of space remaining in the cutput 
area is calculated. Ccntrcl returns to the 
problem program. 

If the output area is full, but not 
exceeded, the module moves the reccrd to 
the output area (if a work area is 
specified) and calculates the remaining 
track capacity. It then writes the reccrd 
on the file. 

If the record does not fit en the track, 
or the output block has been exceeded, a 
test determines if any records have been 
previously processed and moved intc the 
output area. If so, the reccrd (s) already 
in the output area is written as a 
truncated record and as the last record on 
the track. The record that did net fit is 
moved to the first part of the cutput area. 

If records have not been previously 
placed in the output area, and the current 
record does not fit on the track, the 
module updates the DASD address to the next 



track, and writes the reccrd as the first 
record on that track. If the extent upper 
limit is reached, it fetches $$ECPEN to 
cpen the next extent. 

If spanned processing is specified, a 
Icgical reccrd in the user's wcrk area of 
the length specified in the BECSIZE 
register is divided by LICCS intc segments 
to make full use of the space available in 
each physical reccrd and device track, 
processing proceeds for each segment in a 
manner similar tc unspanned records. In 
addition to the bytes of data, each segment 
contains a segment descriptor word 
indicating its sequence as the only, first, 
middle, cr last segment in the ccnstructicn 
cf the logical record. 

A spanned record does not span volumes 
en cutput. If there is net enough space en 
the current volume to complete a spanned 
reccrd, the medule rereads the last hleck 
cf the previous spanned record and 
truncates it, if necessary, tc the last 
segment. The remainder cf the track is 
then erased. An 8-byte record consisting 
cf a feur-hyte block descriptor word and a 
fcur-byte null segment is written on each 
remaining track tc the end cf the extent (s) 
on the current volume. Finally, an attempt 
is made to put the entire spanned reccrd en 
the next volume. 

In rereading the last block cf the 
previcusly spanned record, a recpening of 
one or more previous extents may be 
necessary. If sc, the medule interfaces 
with the CPEN transients by setting 
indicaters in the DTF tc shew that a 
preceding extent on the current cr previous 
volume is to be reopened. 

The module alsc processes errors if 
ERROPT is specified as an SDjy.OCVO parameter 
and the problem program has specified error 
routines. If ERREXT is specified, 
additional errors are returned tc the 
problem program for processing. If spanned 
processing is specified and 
ERROPT= [SKIP, IGNORE] , the physical record 
en which the error occurred is ignored. 
The remaining spanned record segments, if 
any, are written- 



SEMOEVO: Close Routine Chart HH 



Objective; Tc write any remaining records 
and/or the end-of-file record in sequence 
en a DASE file. 



Entry; From the elese transient, $$E0SDC1« 



Exit; Tc the elese transient, $$E0SDC1. 
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the problem program on a sequential DASD 
file. The records are returned to the same 
location froir which they were read. 

Entry: From the PUT macro expansion. 

Exit! 

• To the problem program. 

• To the clcse B-transient, $$ECSCC1. 

Method: For unspanned reccrd, this routine 
first moves the logical record from a work 
area to the output area, if a wcrk area has 
been specified by the problem program. 

The I/O area address is then updated by 
the logical record length, and the routine 
determines whether the end of the block has 
been reached. If it has net been reached, 
an update switch is set, and control 
returns to the problem program. 

If the end of the block has been 
reached, the routine determines whether a 
second read operation has been performed. 
If so, tests are made to ensure that the 
I/O operation has been completed. 

This routine then initializes the search 
argument with the address cf the record to 
be written, and the Read/Write CCVi with the 
length of the record. It modifies the 
Read/Write CCW to write data, and issues an 
SVC to write the record. When I/O is 
com.pleted, the routine determines whether 
the track hold option has been specified. 
If so, the track of the record just written 
is freed via an SVC 36. 

Spanned record processing proceeds for 
each segment in a fashion similar tc 
unspanned records. The device is initially 
repositioned to the first block cf the 
logical record by using the pointer stored 
in the DTF table. If the logical record 
spans several extents, the DTF is reset by 
decrementing the extent sequence number by 
1 and by using an AND (X'4M') tc the open 
communications byte. The extent where the 
logical record begins can new be reopened 
by fetching $$B0PEN. The physical record 
blocks are then updated frcm the logical 
record in the user's work area. Null 
segments are recognized, but not assembled. 

The routine next tests tc see if entry 
to the module was from the close routine. 
If so, control returns to the clcse 
B-transient, $$BCSDC1. If end cf file has 
not been reached, control returns to the 
GET macro logic (if specified) , or tc the 
problem program. If end of file has been 
reached, control returns tc the problem 
program, after setting the end-cf-file bit 
on in the CCE. 

If ERROPT has been specified as a 
SDMCDVU parameter, and if the problem 



program has specified errcr routines, the 
module also processes errors. If ERREXT is 
specified, additional errors are returned 
tc the problem program for processing. 



SDMCDVU: Close Routine Chart HR 



Chjective: Tc write any remaining records 
in sequence on a DASD file. 

Entry: From the clcse fi-trarsient, 
$$ECSDC1. 

Exit: To the close E-transient, $$B0SDC1. 

Method : This routine sets the current 
pointer to the end of the I/C area, and 
then determines whether there are any 
records in the output area to be written. 
If net, certrol returns te the clcse 
E-transient, $$B0SDC1 via an SVC 9. 

If any records are to be written, 
ecntrol tranches tc the PUT nacre logic to 
write the remaining records and return to 
the close routine. 



SDMCDVU : 



RELSE Macro Chart HR 



Chjective: To cause a physical read 
eperatien to be perfermec when the next GET 
maoro is issued by the problem program. 

Entry: From the RELSE macro expansion. 

Exit: To the problem program. 

Method : This routine, used only in 
conjunction with blocked input records, 
causes the remaining records in an input 
block to be bypassed. It sets the current 
pcinter te the end cf the input area, so 
the next GET macro instruction causes a new 
physical record te be read irte the input 
area, and makes the first logical record of 
that block available tc the prctlem 
program. If spanned records are being 
processed, the entire blcck cf logical 
spanned reecrds is bypassed. 



SDMCDVU : CNTRL Maerc, Chart HR 

Objective: To perform a nondata operation. 

Entry: From the CNTRL macro expansion. 

Exit: To the problem program. 

Method: The CNTRL macro instruction causes 
a seek operation on a DASD device , or a 
restore operation en a 2321. The routine 
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neither is specified, the vvait Iccp is 
bypassed. 



Next, a test determines if the record 
fits on the track. If the reccrd fits, the 
irodule calculates the space renaining en 
the track after the record is written and 
posts that information in the DTF table. 
Then, it modifies the I/O area address in 
the Write CCVi and issues an SVC tc write 
the record. 



SDMODUU : 



GET J(acro Chart JF 



EUT Macrc Chart JG 



Objectives: To read a physical record froir 

a CASD file, and tc rewrite the record in 

the same location if the reccrd requires 
updating. 



If ERROPT is specified as a parameter, 
errors are processed as each reccrd is 
written. If ERREXT is specified, 
additional errors are returned tc the 
problem program for processing. 



If the record does not fi 
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SDMCDUO: Close Routine Chart JE 



objective: To write an EOF reccrd. 



Entry: From the close transient, $$E0SDC1. 



E xi t; To the close transient, $$ECSDC1 cr 
SDMCDUO PUT logic. 



Method: The routine waits for I/C 
completion if two I/O areas cr a work area 
is specified. A test determines if there 
is enough room left on the track tc write 
an EOF record. If not, the SDMCDUC PUT 
undefined record routine is entered, and 
the search address is updated tc the next 
available track in the current extent. If 
another track is not available, $$E0PEN is 
called in to open a new extent. 



E nt ry; Frcm the GET or PUT macro 
expansion. 

Exit: Tc the problem prcgran. 

Method ~ G ET Logic : This module reads 
undefined length unblocked records and 
makes them available to the user in a work 
area, if ere is specified. If track held 
is specified, each read operation reads a 
record and holds a track. 

The first time through the module, a 
switch is turned on, the count field and 
data area of the first reccrd are read, and 
the count field of the next reccrd is read. 
Cn each subsequent entry, the data area is 
read and the count field cf the next 
sequential reccrd is read. A test 
determines if the track held opticn is 
specified. If so, the track is freed so 
that the data can be read. A test alse 
determines if two I/C areas cr a werk area 
is specified, so that ancther GET operation 
can be initiated. 

In either case, ccntrel returns tc the 
problem program so that the record can be 
updated. 

If ERRCPT is specified as a parameter, 
errors are precessed as each record is 
read. If ERREXT is specified, acditicnal 
errors are returned to the problem program 
for prccessing. 

Method ~ PUT Logic: This module writes the 
records (updated optionally) cn the DASD 
file and returns control to the problem 
pregran. Vvhen end of file is reached, the 
medule processes the last reccrd before 
returning control to the problem program. 

If ERRCPT is specified as a parameter, 
errors are processed as each reccrd is 
written. If ERREXT is specified, 
additional errors are returned tc the 
problem program for processing. 



When control returns to this routine, 
the proper I/O area is selected, the record 
data length is set to 0, and the EOF record 
is written. After a wait for I/O 
completion, control returns to the close 
transient, $$BCSDC1 via an SVC 9. 



SDMODUU; CNTRL Macro, Undefined-Length 

Records Chart HR^ 



Objective : To perform a nondata operation. 
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Entry! Froir the WRITE itiacrc expansion* 



Exit : To the close E-transient, $$B0SDC1, 
via an SVC 9. 



Exit; To the problem prograir. 

Metho d: Tvo types of write operations iray 
be specified by the probleir prcgrair (SQ and 
Update) • If SQ is specified in the operand 
of the WRITE macro^ a sequential format 
write (write count, key, and data) is 
performed. If UPDATE is specified in the 
operand, a nonforroat write (write data) is 
executed. A WRITE UPDATE should always be 
preceded by a READ macro instruction. 

This macro causes a record to he written 
froir the area defined by the WRITE macro to 
the file. The length cf the record to be 
written is specified in the operand of the 
WRITE macro instruction only if records cf 
undefined format are being written. If 
fixed-length unblocked records are being 
written, the record length is defined in 
the DTF table. Record blocking is not 
handled by the WRITE macro because it is a 
responsibility of the probleir program. 

This routine initializes the CCW chain 
to write count, key and data, and write 
data. It also initializes a verify CCW if 
the update option has been specified. If a 
WRITE UPDATE macro is issued, this routine 
reinitializes the CCW chain to write data, 
and sets the verify CCW to read data. This 
read data operation is followed by a read 
count operation in order to obtain the 
count field ID of the next sequential 
record. It then issues an SVC to write 
the record. 

If a WRITE SQ macro has been issued, the 
routine determines whether the current 
record fits on the track, cr if the track 
limit has been reached on a previous read 
operation. If either condition exists, 
control branches to a routine tc update the 
search address. The routine deternines 
whether the end of the extent has teen 
reached. If so, it fetches $$ECPEliv to open 
a new extent. An SVC is then issued to 
write the record. The track capacity is 
decreased by the effective length cf the 
record just written. If the rcutine has 
been entered from the close routine, 
control passes to the check routine to 
determine if the input/output operation has 
been completed. Otherwise, control passes 
to the problem program. 



Kethcd; This routine performs a 
hranch-and-link operaticr to the WRITE 
macro routine to write any records 
remaining in the output area, and check the 
write operation. Upcn return frcm the 
CHECK macro routine, this routine issues an 
SVC 9 tc return tc the close B-transient, 
$$E0SDC1. 



SEKOEWj 



CHECK Macro Chart KE 



Chjective: To ensure that a previously 
issued READ or WRITE macrc has teen 
satisfactorily com.pleted. 



Entry: 
Exit: 



Frcm the CHECK macro expansion. 



• To the problem program. 

• To the problem program's end-cf-file 
routine. 

Kethcd: This routine waits for the 
completion of the input/cutput cperaticn 
started by a READ or WRITE macrc 
instructicr. If the problem prcgram has 
specified ERRCPT as a parameter, this 
rcutine checks for read cr write errors. 
If no error has occurred, this rcutine 
checks fcr a write update cperaticn. If 
so, and the track hold option has been 
specified, the rcutine issues an SVC 36 tc 
free the held track. Control then returns 
tc the problem prcgram. 

If a read cr a write error has occurred, 
and the problem program has specified an 
errcr routine, contrcl branches tc the 
user's error routine to process the error. 
Upcn return, if a read errcr rcutine has 
been specified, the count field cf the next 
record is read. If the ignore option has 
not been specified, the rcutine returns tc 
the READ macro rcutine tc read the next 
record. If the ignore option has been 
specified, contrcl returns tc the problem 
program. 



SDMCDW: KCTE Macro Chart KF 



SDMCDW: 



Close Routine Chart KD 



Objective: To write any remaining records 
on a DASD work file. 

Entry: From the close B-transient, 
$$ECSDC1. 



Chjective: To pass identification of the 
last physical record that was read or 
written to the problem prcgram. 

Entry: Frcm the NCTE macro expansion. 

Exit: To the problem prcgram. 
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Method; The CNTRL macro instruction causes 
a seek operation on a disk device • This 
routine isolates the Seek CCVi in the CCW 
chain by setting off the coirirand chaining 
bit, and issues an SVC tc perfcrir a 
control seek. When the I/C operation is 
completed, the routine turns the ccirmand 
chaining bit on and control returns to the 
problem program. 



SDMCD: FEOVD Macro Chart KG 



Objective; To force end of volume in 
sequential disk processing. 

Entry; From $$BCSDEV. 

Exit ; To $$EOSDEV to close the current 
volume and open a new one. 

Method; The FEOVD macro instruction causes 
and end of volume condition to occur before 
physical end of volume has been reached. 
If forced end of volume is specified, 
$$ECSDEV is fetched to close the current 
volume and open a new volume. 



INITIALIZATION AND TERMINATION PECCEDURES 



When sequential access DASE files (DTFSD) 
are opened, and the file is en more than 
one volume, only one extent is processed at 
a time, so only one volume need be on-line 
at a time. 

Job control accepts label inforiraticn 
supplied by VOL, DLAE, and XTENT statements 
(not for 333C) , as well as infcrmation on 
the simplified DLEL and EXTENT statements 
provided by Version 3 onward. Jcb contrcl 
stores this EASE label informaticn on the 
SYSRES DASD label informaticn cylinder. 
The TES Processor, $$BCPEN, prepares to 
read the label inform^ation from the SYSRES 
label information cylinder into the logical 
transient area, and then fetches $$EOSE00. 

The sequential DASD open logical 
transients read the DASD label informaticn 
from SYSRES into storage. The format of 
the SYSRES DASD label informaticn is 
illustrated in DCS/VS LIQCS Volume 1, 
SY33-8559. If the file is an input file, 
the open transients compare the file label 
infcrmation with the SYSRES EASE label 
infcrmation to determine if the logical 
file is correct, if the serial numbers are 
equal, and if the label extent limits are 
equal to or greater than the limits of the 
incoming extent. The extent limits are 
posted in the ETF. 

If the logical file is an output file, 
the open logical transients create file 



labels and write them in their appropriate 
location and sequence. Extent limits are 
checked to ensure that no extent overlaps 
the Volume Table of Contents (VTOC) limits, 
or overlaps an already existing file that 
is still active. 

Disk wcrk files are supported as 
single-volume, single-pack files and are 
always opened as output file. 

When a file is closed, the close logical 
transient determines whether a block of 
data remains to be processed. If so, the 
logic module is reentered to complete the 
processing. Upon return, file labels are 
deleted if so specified. Otherwise, the 
file labels are updated and rewritten if 
the file is an output file cr a work file. 
Control returns to the close monitor or the 
problem program. 



SEQUENTIAL DASD OPEN/CLOSE LCGIC 



Cpe n/C lose Sequential DASE Files Chart 03 



When a DASE file is processed sequentially 
(DTFSR or DTFSD specified), OPEN initially: 

• checks the standard label Cs) en the 
volume, (or on the first volume of a 
multivclume file) , 

• makes any additional labels on the first 
volume available for checking, and 

• locates the first extent on the first 
volume and makes it available for 
processing. 

Logical IOCS processes one extent at a 
time in the sequence specified by the 
user's job control // EXTENT cards. When 
logical ICCS detects the end of the current 
extent, it branches tc the erd-of-extent 
rcutine. CPEN then locates the next extent 
specified by the ccntrcl cards and makes it 
available for processing. If the next 
extent is the first extent cf a different 
volume used by the file, CVEls checks the 
standard labels on that vclune and makes 
any additional user labels available tc the 
user for checking. 



OPEN (Input Sequential DASD) Chart 04 



If the file tc be opened is rcrmal input, 
the extents are read and checked as needed. 
User labels are read and checked if LAEADDR 
is specified. The file labels are checked 
against the DLBL informaticn. The open 
indicator for the file is turned on and 
ccntrcl returns tc the user. 
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$SBOSDIlt SD Open Input t DLEL Extents 

Charts LE-LF 



$SECSDI2; 
Chart IG 



SD Open In]g:ut g Ext e nt tc DTF 



Objective: 

• To control the sequence cf operations 
required for opening each file extent. 

• lo provide an entry to the user's 
trailer label routine (if specified), at 
each end-cf-voluine. 

• To provide an entry to the user's 
end-of-file routine (if specified) upon 
reaching the end of the last extent. 



Entry ; Froir. $$ECSDOO, $$BOSE01, §$ECSE02, 
and reentry from $$B0SDI2, $$ECSEI3, and 
$$E0MSG1. 



Exi ts ; 

• To $$B0SDI5 to post the DIB. 

• To $$B0SD12 to continue CFEN processing. 

• To $$BODCUE to dequeue eld extents. 

• To $$B0SEI3 to process user labels. 

• To $$BOPEN if the last DIEL extent has 
been processed and another file is to be 
opened. 

• To $$B0MSG1 for operator coirirunicaticn. 

• Return to problem prograir when all files 
have been opened. 

Method: If a system unit other than SlfSLNK 
is being opened, this routine gets extent 
information for the DTE from the data 
information block (DIE). $$E0SDI5 is the 
overlay phase that posts the DIE. 
Otherwise, it continues at EYPASSX. 

$$ECSDI1 tests for availability of DLBL 
extents. If no more are available, an exit 
is made to the user's end-cf-file address 
if no trailer labels are tc be processed. 
If the file has been previously opened, the 
next consecutive DLBI extent tc be opened 
is read, and a test determines if this 
extent is for another volume. 

Upon encountering a new volume, trailer 
labels are processed for the previous 
volume (if LABADDR was specified with a 
DTFSD) , by exiting to phase 3 cf cpen 
input. The volume label is read and 
checked to ensure that the proper pack is 
mounted. If the volume label is all right, 
the Format ^ label is read and checked. 
The VTOC limits from this label are saved, 
and initialization is performed to fetch 
the next phase. The routine exits tc 
$$ECSDI2. 



Objective: Tc obtain extent infcrmaticn 
for the DTF table as required by an attempt 
tc access a record beycnd the limits of the 
current extent. 



Ent ry ; Frcm $$B0SDI1, and reentry frcm 
$$E0MSG1 and $$BODSMW. 

Exi ts: 

• To $$ECSDI1 to bypass current extent and 
process the next cne. 

• To $$ECSDm to continue initialization 
cf the DTF table. 

• To $$ECESMW to print message if data 
secured file is urccurtered. 

• To $$ECFEN if the last DLEL extent is 
processed and another file remains to be 
opened. 

• To $$ECKSG1 for operator communication 
tc display error message. 

Method: The routine reads the Format 1 
label for the file and ensures that no 
discrepancies exist between the ELEL and 
Format 1 label. The extents within the 
label are scanned for cne that either 
matches or falls around the limits of the 
incciring extent. The scarnirg process 
continues until a proper match is found, or 
until all the extents have been exhausted 
by reading the labels in the chain (if any 
are preser.t) . The extent linits are then 
posted in the DTF table. The file is 
indicated as being open, and additional 
initialization is performed depending en 
the type cf DTF being opened. 

The format 1 label is checked for the 
data security indicator. If it is ON and 
the file has not been opened, $$EODSiyiW is 
fetohed tc put out a data security message. 
Otherwise, any user header labels are 
processed, and ccntrcl branches tc $$BCSDI4 
to continue initialization of the DTF 
table. 



<$E0SDI3; SD Open Inputs User Labels 

Chart LH 



Objective: Tc read user labels and give 
control to the user for processing their. 
Tc rewrite any labels updated by the user, 

Entry: From $$B0SDI1 or $$BCSEI2, and 
reentry frcm $$B0MSG1, $$EOFLPT, cr the 
user's label routine via an SVC 9. 



Sequential Access EASE Files im 



• To $$B0SDI5 to post the CIB. 

• lo $$BOPEN if the open prccessirg fcr 
the file is complete and another file 
remains to be opened. 

• lo $$BODQUE to dequeue extents, 

• To $$B0MSG1 for operator coirrrunication. 

• To $$BOSIGN to check for device 
assignment. 

• Return to problem prograir when all files 
have been opened. 

Metho d; This phase reads each extent 
record from the SYSRES label cylinder, 
tests for various conditions in their 
appropriate crder# and fetches the phase 
required for further processing. If the 
normal sequence is interrupted b;^ the entry 
of an extent frcir the console, the phase 
finds the next DLBL record by using the 
sequence nuirber of the last extent 
processed before the extent vvas entered 
from the console. $$BCSDI5 is the overlay 
phase that posts the DIB fcr a system file. 

The processing required fcr each extent 
record depends on whether: 

1. The file being opened is a system file. 

2. The file is already open. 

3. The extent is on another volume. 

4. The extent is entered frcm the console. 

5. The extent is the last one fcr the 
file. 

6. The extent is to be bypassed, either 
for file protection or because it is a 
duplicate. 

7. User labels are specified. 

8. File protect is specified. 



$$ECSIGN: SD Open Ignore Chart IN 

Objective: To check for the CCECI Open/ 
Ignore function. 

Entry; From $$ECSD01. 

Exits: To $$BCSDOl. 

Method; This routine determines whether 
the COBOL Open/Ignore functicn has been 
specified. If so, and the device is 
unassigned cr assigned IGN, the cpen is 
bypassed. If the device is assigned, the 
cpen is continued. 



If the Cpen/Igncre cpticn has net been 
specified, and the device is unassigned cr 
assigned IGN, the job is aborted. 
Otherwise, the open ccntirues. 

The rcutine also determines whether the 
assigned device is the correct device. If 
ret, the jcb is aborted. Otherwise, 
control returns to $$BCSCC1 to continue 
processing. 



$$E0SDC2; SD Open Output^ Volume Label 
Chart LO 



Objective: To read and verify the standard 
vclume label (VOL 1) and VTOC label (Format 
4), preventing any extent frcmi overlapping 
the VTOC. 

Entry; Frcm $$B0SD01, $$E0SE06, $$B0SD07, 
and reentry from $$E0MSG1. 

Exits; 

• Tc $$ECSD01 if an extent overlaps the 
VTOC. 

• To $$EC£D03 to continue processing a 
sequential file. 

• Tc $$EC£D04 tc complete the opening of a 
compiler file. 

• To $$EC£D08 to prevent the user from 
creating identical labels in the VTOC. 

• Tc $$EC]y.SGl for operator communication. 

Method: The volume and Format 4 labels are 
read and verified, VTOC limits are saved, 
and the extent limits are checked against 
the VTOC limits for overlap. Fcr each new 
vclume that is opened for the file, an exit 
is made to $$E0SD08 to prevent the user 
frcm creating identical labels in the VTOC. 

Fcr an cpened SYSLNK file, this routine 
exits to $$E0SD04 after getting the VTOC 
limits tc complete the opening of the file. 
Otherwise, $$E0SD03 of open cutput is 
fetched tc further process a sequential 
file. 



ii52§2Sll SD Open Output^ Extent Overlap 

Charts LF"ig 



Objective: To prevent evening any extent 
that overlaps an already existing file that 
is still active. 

Entry; Frcm $$B0SDC2 cr $$ECSEVil, and 
reentry frcm $$B0SD08 cr $$ECMSG1. 
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$$ECSDQ7; SD Cpen Outputs Ex tents froir 

Console Chart LW "^ " 



Objective: To enter operator-provided 
extent inforiration froir the console. 

Entry; Froir $$B0SD01, $$BCDSPW, or 
$$EC2321. 

Exits; 

• To $$B02321 to complete conversion cf 
2321 extent. 

• To $$B0SEC2 to process the nev? extent. 

• To $$BODSFV to display the VTCC. 

• To $$BOVEWP for a more extensive VTCC 
dump. 

Method; This routine initiates a no more 
available extents message and reads the 
operator's reply (if a 3210 or 3215 has 
been assigned to SYSLOG) . If the operator 
did not cancel the job^ it is assuned that 
an extent was entered^ which is then 
checked for validity. If the extent is 
valid^ this routine exits to $$ECSE02 to 
process it. 



Exits; 

• To $$BCSDC6 if user labels are 
specified. 

• To $$ECFLPT if file protect is 
specified. 

• To $$ECPEN if open prccessing for the 
file is complete and another file 
remains to be processed. 

• To $$ECKSG1 for operator conirunication. 

• Return to problem program when all files 
have been opened. 

y.ethcd; This routine posts appropriate 
extent information in the DTE table. It 
then tests to check if user header labels 
are to be processed. If that is the case, 
it fetches $$ECSDC6. Ctherwise, it tests 
if the extent is to be file-protected. If 
yes, it fetches $$E0ELFT; if no, it exits 
to $$ECPEK to open the next file or it 
returns to the problem program if there are 
no more files to be cpened. 



j jEpSDWl ; SD Open Work File, Volume Label 
Charts MA-Se 



$$ECSDQ8: SD Ope n Output y Dele t e_ label 

Chart LX 



Objective: To prevent creation of 
identical file labels. 

Entry; From $$E0SD02, $$BCSEW1, $$E0DA01, 
or $$BCIS03, and reentry frcm $$ECiy!SGl. 

Exits ; 

• To $$B0DAC1 for Direct Access Kethod. 

• To $$B0SDC3 for all other uses. 

• To $$E0MSG1 for operator communication. 

M etho d; This routine uses the 4a-tyte 
filename from the DLEL record as a key to 
search the VTOC for any identical filename. 
It deletes any identical label found if the 
expiration date is passed. Otherwise, the 
operator has the option of canceling the 
job or deleting the identical label. 



$$£CSDC9; SD Cpe n Ou tp ut, Extent to DTF 

Chart LY 



Objective : To update the DTF table. 
Entry: From $$BCSD0M. 



Objective: To read and verify the standard 
volume label (VOL 1) and VTOC label (Fcrmat 
^) , preventing any extent frcm overlapping 
the VTCC (Volume Table of Contents). 

Entry; From $$BOSD00, $$ECSE01, $$BOSD02, 
$§E0SDW2, and reentry frcm $$B0MSG1. 

Exits : 

• To $$ECSD03 to continue processing a 
work file extent. 

• To $$ECSD08 to prevent duplicate file 
labels. 

• To $$ECPEN if the last extent has been 
processed and another file remains to be 
opened. 

• Tc $$ECKSG1 for operator communication. 

Method; This routine determines whether 
the symbolic unit specified in the DLBL 
statement is assigned and whether it can be 
fsed as a work file. It reads the volume 
label and, if the device is a disk, 
determines if a correct disk pack is 
mounted. It reads the VTCC label and 
ensures that no extent overlaps the VTCC. 
If the VTCC has not been checked for a 
duplicate filename, $$E0£D08 is fetched to 
eliminate possible duplication. Subsequent 
exits are to $$B0SD03. (See $$ECSD03 SD 
Cp en Output, Ex ten t ^^., Overlap . ) "" "" 
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Method: This routine searches the track 
hold table to determine whether a track is 
being held by the file being clcsed. If 
so, an SVC 36 is issued to free the track. 
If another SC file remains tc be clcsed, 
control returns to the close monitor, 
$$ECL0SE. If ISAM files are being 
processed, ccntrol returns to $$ECISOA. 
Otherwise, control returns tc the probleir 
program • 



lUE, phase $$E0DQUE issues a seccnd SVC 22 
to release the system for multiprogramming 
cperaticE. Phase $$E0EQUE then fetches the 
calling phase or the first phase of the TES 
prccesscr, $$ECPEN, if the name cf the 
calling phase was not supplied and there is 
another file tc be opened. If the name cf 
the calling phase was not supplied and 
there are re ether files tc be opened, 
phase $$ECECUE returns ccntrcl tc the 
problem program via an SVC 11. 



$$ECDQ13E; Dequeue Extent JIEs Chart MJ 



objective: To find the Job Information 
Block (JIB) chain for a particular logical 
unit; and to clear any extent type JIBs 
associated with the logical unit, and 
release them to the available JIB chain. 

Entry: From the sequential EASE cpen phase 
$$E0SD01, $$E0SD06, or $$BCSDIl to the 
label DEQUEFTN. 

Exit: To the problem program if nc files 
remain to be opened, or to the TES 
processor, $$BOPEN, unless the name of the 
phase to be returned to is supplied by the 
calling phase. 

Method: After storing the contents of 
registers 3 through 8 and the name of the 
phase that is to be returned tc, if 
specified, phase $$BCDQUE issues an SVC 22 
to seize the system; that is, tc suspend 
multiprogramming operation. The phase then 
locates the proper 2-byte entry in the LUB 
table for the logical unit specified and 
examines the seccnd byte of the lUE entry 
to determine if any JIBs are chained tc the 
LUB. If JIBS are chained tc the lUB; that 
is, if the second byte of the LUE is not 
hex 'FF', the address of the first JIB in 
the chain is calculated by adding the 
pointer (byte 2 of the LUB) multiplied by U 
(the length cf a JIB entry) to the starting 
address of the JIB table. 

Byte 2 of the JIB entry is then examined 
to determine if the JIB contains an extent. 
If the JIB contains an extent, the extent 
is cleared. Once the extent is cleared, 
the pointer to the next JIB in the chain is 
obtained from the fourth byte cf the 
current JIB. The current JIB is then 
placed in the available JIB chain and the 
pointer to the first available JIB (FAVP) 
is modified accordingly. When the JIB has 
been placed in the available chain, or if 
the JIB does not contain an extent, the 
address of the next JIB in the chain is 
calculated using the pointer obtained from 
the fourth byte of the current JIB. The 
procedure is repeated for the next JIB. 

When all the chained JIBs have teen 
checked, or if no JIBs are chained to the 



$$BCSD£V: SD Close Chart MK 

Cbjective; When FEOVD has been specified, 
$$EOSDEV closes the current volume and 
opens a new volume. 

En try : 

• From the FEOVD macro. 

• From $$E0SD05 (phase 5 cf oper 
sequential output). 

• From IICCS via SVC 9. 
Exits; 

• Tc the TES processor $$EOPEN. 

• To the close phase $$ECSDC2. 

• To the problem program. 

Method : Fcr an output file, an end of 
volume marker is written and the DTF is set 
up so that the next record is written en a 
new volume. The end of volume marker is a 
rcrmal end cf file reccrd. 



Fcr an i npu t file, a check is made to 



If 



determine if update has been specified 
it is necessary tc rewrite any updated 
records, an exit is made tc the module 
close routine. End of volume is posted in 
the DTF, any remaining extents en the 
volume are bypassed, and the first extent 
en the next velume is opened. 



$$E02321; SD Open Output ^ 2321 Extents 
frem Ccnscle Chart ML 



Cbjective: Tc ccmplete cenversien of 2321 
extent information entered from the 
console. 

Entry: Frcm $$B0SD07. 

Mi^- To $$B0SD07. 

Method: This routine cempletes the 
conversion of a 2321 extent limit. 
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DEVICE INDEPENDENT FILES 



Device independent files are these files 
defined by either a DTECP iracrc or DTFDI 
macro. 

The DTFCP macro defines files used by 
IBM compilers: COBOL, FORTRiVN and PL/I. 

The DTFDI macro defines files assigned 
to the device independent system units 
SYSFDR^ SYSIPT, SYSPCH, and SYSIST. The 
DTFDI macro and its associated Dlf^CD macro, 
therefore, provide DOS/VS Assembler users 
with the samie capabilities extended by 
DTFCP. 



COMPILER FILES 



Compiler (CP) files are files provided 
specifically for IBM internal prcgram.s such 
as COBOL, FORTRAN, and PL/I. These files, 
defined by a DTFCP macro, provide limited 
device independence. Because this file 
definition does not conform to standards 
established for other logical IOCS 
component and is tested for use cnly by IBM 
internal programs, it is net documented in 
any other System, Library publicatiens. 

Some of the differences between CP 
components (DTFCP and CPMOD) and ether 
LIOCS components are: 



1. 
2. 
3. 



No provision tor separate assembly. 

Error recovery not the same. 

The DTFCP table is not 
self-initializing; that is, the user 
must initialize the table if the file 
is reopened. 



DTFCP Macro 



A DTFCP macro instruction c 
each file that has fixed, u 
records, and limited device 
When the file is opened, a 
for reading/writing on a pa 
is built in the DTFCP table 
^^, as, and ^6). only the 
devices can be accessed by 

iaa2, 14^3, mo3, 3211, 250 

3505, 3525, 240 
2319, 3330, 334 



2560, 3504, 
2311, 2314, 
5425. 



an be used for 
nblecked 

independence, 
channel program 
rticular device 

area (Figures 
fellewing 
DTFCP: IBM 
1, 2520, 2540, 
0/3400 series, 
C, 3540, and 



The DTF table generated at assembly time 
is initialized by the DTFCP open phase 



according tc the device type. The device 
type is found by the open phase by checking 
the device type set in the PUB table entry. 
After it is found, the proper indicators 
are set in the DTF table, and the work 
areas and CCW's are modified. Standard 
labels are net reguired en tape files. 

The DTFCP header card is fellcwed by a 
series of parameter cards describing the 
file, and specifying symbolic addresses of 
routines and areas used for precessing the 
file. Because keywerd parameters are 
specified, the parameter cards may appear 
in any crder. This greup ef cards 
generates the necessary Icgical IOCS DTFCP 
tables during assembly. 

The parameter cards fellowing the DTFCP 
header card have keywerd entries in the 
eperand field. All cards used in the DTFCP 
macro instruction, except the last, have 
continuaticn punches in celumn 72. 

Filename: This is the first entry in a 
DTFCP macro instruetien. It assigns a 
symbolic name to the file, which appears in 
all I/O macro statements referencing this 
file. The symbolic name ef the file is in 
the name field, and DTFCP is in the 
eperatien field. 

DEVADDR=SYSXXX : This parameter specifies 
the symbolic unit to be associated with the 
file. If SYSPCH is assigned to the IBM 
2540 or 2520 punch units, the CP Open 
transient allows the error recovery 
procedures generated by DTFCP when 
DEVADDR=SYSPCH. 

I0AREA1=NAME: The I/O area to be used by 
the file is defined by an address 
expression. 

I0AREA2=NAiy.E: If two I/O areas are needed 
for ever lapped GET/PUT precessing, this 
parameter is required. 

ICREG= (n) : Fcr input files, this parameter 
specifies the general purpose register (n) 
intc which IOCS inserts the address of the 
next logical record available fcr 
precessing. For output files, IOCS inserts 
the address of the area where the user can 
build the next logical record. Any 
register 2-12 may be specified. The same 
register may be used for different files. 

This parameter must be specified 
whenever two I/O areas are used. 

RECSIZ£=n: For fixed-length records, this 
parameter specifies the number of 
characters in the record. I/O routines use 
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r T 

I Eytes I 

I- + 

0-15 
(00-OF) 

16 
(10) 



T- 

Eitsj 
+- 



Function 



17-19 
(11-13) 

20 
(14) 



21 
(15) 



22-28 
(16-lC) 

29 
(IE) 



30-35 
(lE-23) 

36-37 
(24-25) 

38 
(26) 

39 
(27) 

40 
(28) 

41 
(29) 

42 
(2iV) 



0-1 

2 
3 
4 
5 
6 



CCB. 



Not used. 

COBOL open; ignore option. 

X'lO* indicates an unlabeled FCKTEJ^N tape. 

DTF table address constants relocated t^ OPENR. 

Used by FCRIRAK (Sequential Disk Backspace and Re^vind). 

1 = ASCII 

= EBCDIC 

FORTRAN is calling DTFCP. 

Logic module address. 

DTF type X*32' except in the case of disk assigned 

to units SYSOOO to SYSnnn. In this case^ a DTFCP open phase 

changes it to X'2C'. 

Open indicators: X'02' input, X'OO* cutput, except 

for tapes assigned to SYSOOO to SYSnnn when X'OO* = input and X'08' 

= output. 

X'08' DISK=YES indicator. 

1 = No revvind, = Revvind. 
Filenaire (see byte 29). 

Device type code: 



X'OO' = 


2311 




X'Ol' == 


2314, 


2319 


X'04' = 


333C. 




X'08' = 


3340 


general 


X'09' = 


334C 


35yE 


X'OA' = 


3340 


7 OWE. 



File address fcr disk; block ccunt if bit 7 of byte 
16 is on. 

Volume sequence nuirber or vvcrkarea. 



Open switch. 



Sequence nuirber cf current extent. 



Sequence nuirber cf last extent, or X'80' if 1442 
punch. 

X'80' indicates request fcr standard label tape 
OPEN. 



X'80' 


device 


is 


a 


2560. 


X'40' 


device 


is 


a 


5425. 


X'20' 


device 


is 


a 


DASE. 


X'lO' 


device 


is 


a 


tape. 


X'08' 


device 


IS 


a 


printer 


X'04' 


device 


is 


a 


punch. 


X'02' 


device 


IS 


a 


reader. 



Figure 44. ETFCP: DISK=YES (1 cf 3). 
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J. ^ ^- 

Bytes I Bits I 
X x« 



Functicn 



End-of-table if DTF is defined for an input file. 



120-1271 
(77-7F) I 

I 
128-1511 
(80-97)1 



Second CCW for output- 



Verify CCW's for output, 



End-of-table if DTF is defined for output file and DEVAEDR does not equal SYSECH. 



152-1591 
(98-9F) I 

I 
160-1671 
(A0-A7)| 

I 
168-2311 
(A8-E7) I 

X- 



25U0 punoh error recovery CCW 1, 



2540 punoh error recovery CCW 2* 



Reserved. 



h 



When the CP open initializes the table and deterirines that the device is a 2540 
punch, the following bytes in the table are changed: 



30 
(1F> 

32-35 
(20-23) 

48-55 
(30-37) 

56-63 
(38-3F) 

64-71 
(40-47) 

72-151 
(48-97) 

152-231 
(98-E7) 



h 



X'FF' indicator to DTFCP open phases arc logic 
module. 

Instruction to load user I/O area to I/C register, 



CCW. 



2540 punch error recovery CCW 1. 



2540 punch errcr recovery CCW 2. 



80-byte card iirage, savearea 1. 



80-byte card iirage, savearea 2. 



When the CF open initializes the table and deterirines that the device is a 2560 or 
5425, the following bytes in the table are changed: 



h 



32-35 
(20-23) 

48-55 
(30-37) 

56-63 
(38-3F) 

64 
(40) 

65 
(41) 



Instruction tc lead user I/C area to I/C 
register. 

First output CCW, 



Second output CCW. 



Stacker select character V for ASA. 



Stacker select character W fcr EBCDIC. 



Numbers in parentheses are displacements in hexadecimal rotation. 
Figure 44. DTFCP: DISK=YES (3 of 3). 
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T T 

Eits 



Bytes 



Functicn 



(2C) 




1 
2 
3 

^ 

5 
6 
7 



45-47 
(2D-2F) 

48-55 
(30-37) 



1 = input, C = output. 

1 = eject needed fcr a reader-punch, 

1 = not first pass, = first pass. 

1=2 I/O areas, 0=1 I/O area. 

1 = 2540 punch. 

1 = SYSLST cr SYSFCH. 

1 = SYSLST cr SYSFCH cn output tape. 

Reserved fcr future use. 

I0AREA2 address. 



= no eject, 



ccw. 



End-of-table is DTF is defined as output file and DEVAEER is net equal to SYSFCH. 



56-63 
(38-3F) 

64-71 
(40-47) 

65-67 
(41-43) 



2540 punch error recovery CCW 1, 



2540 punch error recovery CCW 2. 



EOF address, input only. 



End-of-tafcle if DTF is defined as input file. 



72-151 
(48-97) 

152-231 
(98-E7) 



|80-byte card iirage, savearea 1. 



jSO-byte card iirage, savearea 2* 



If the device is a 2560 or 5425, tytes 56 onward contain the following inforiration; 



56-63 
(38-3F) 

64 
(40) 

65 
(41) 

66-75 
(42-4E) 

76-235 

(4C-EE) 

236-237 

(EC-ED) 

238-317 
(EF-13D) 

318-319 
(13E-13F) 

X 



Second output CCW, 



Stacker select character V for ASA. 



Stacker select character W fcr EBCDIC , 



Reserved fcr future use. 



First I/O area. 



Reserved. 



Second I/C area. 



Reserved. 



^DTF type X'30' found in DCS LICCS Version 1 only. 

Nuirbers in parentheses are displaceirents in hexadeciiral notation . 



Figure 45. DTFCP: DISK=NC (2 of 2). 



Device Independent Files 161 



p J ^. 

I Bytes I Bits | 



Function 



h 



ao-47 I 

(28-2F)| 



CCW, 



I 



End of table if DTF is defined as output file and DEVAEER is not 
equal to SYSPCH. 



48-55 j 
(30-37) I 
I 
I 
56-63 I 
(38-3F)| 

I 
57-59 I 
(39-3E) 1 



j 2540 punch error recovery CCW 1, 



I 



2540 punch error recovery CCW 2, 



EOF address, input only. 



End of table if DTF is defined as input file. 



64-143 I 
(40-8F) I 

I 
144-2231 
(90-13F) 

J.- 



80-byte card iirage, savearea 1, 



80-byte card iirage, savearea 2. 



For 2560 and 5425 bytes 48 cnwards contain the fcllcv^ing 
inforiration: 



h 



48-207 I 
(30-CF)| 

I 

208-2091 
(D0-D1)| 

I 
210-3691 
(D2-171) 

I 
370-3711 
(172-173) 

I 
372-4511 
(174-1C3) 
j.«. 



lOAREAl. 
Reserved. 
I0AREA2. 
Reserved. 
Compare area. 



Nuif.bers in parentheses are displaceirents in hexadeciiral rotation. 
Figure 46. ETFCF: DISK= parameter omitted (2 of 2). 



CPMCD Macro 



The CPMOD macro is used with IBM internal 
programs only. Therefore, the CPNCD macro 
is not documented in any other System 
Library publications — see Ccmpi ler Files . 



The CPMOD macro generates nine different 
logic modules. Each CPMOD Icgic ircdule is 
flcwcharted and described in detail. 
Cutput modules where RETRY=NC is specified 
are not flowcharted because they are the 
same as the other output modules except for 
the 2520 and 2540 punch errcr recovery 
procedures. 



The GET-PUT logic modules for two I/O 
areas, with ICPTR and RETRY emitted handles 
all ether cases except these modules where 
ICPTR=YES is specified. 



The parameters of the CPMCD macro are 
keyword param.eters. Because keywcrd 
parameters are specified, the parameter 
cards after the header card may appear in 
any order. This group of cards generates 
the necessary logical IOCS CFMCE during 
assembly. 

The parameter cards following the CPMOD 
header care have key entries in the operand 
field. All cards used in the CPMCD macro 
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Exit; To the problem prograir, to the 
user's EOF routine, or to $$EOFEN to get a 
new diskette extent. 

M etho d; This routine irakes a logical 
record available to the user in the I/C 
area. When an end-of-file is sensed, a 
branch to the user's ECF routine is irade. 

When an end-of-extent ccnditicn is found 
on a diskette and no more extents are 
available, a branch is made to the user's 
EOF routine. If there are more diskette 
extents, $$ECPEN is fetched to get another 
diskette extent, and processing ccrtinues. 

The routine is simdlar tc the GET tvic 
I/C areas routine except the logic to 
handle I/O area switching is net included. 



CPMCD; GET Kacro, IOPTR=YES Chart NB 



Objective; To read a record intc the I/C 
area pointed to by register C (ICFTR) . 

Entry; From a GET macro expansion. 

Exit ; To the problem program or ECF 
address. 

ly.ethod; When the parameter IOPTR=YES is 
included, the CP module generated allows 
the user to use any area in main storage 
(other than a storage protected area) as an 
I/C area. The I/O area is pointed tc by 
the address loaded into register 0. With 
this exception, this routine is the same as 
the GET with one I/O area. 



CPMCD; PUT Macros, T wo I/O ;^>reas Chart NC 



overlap. 



To write a logical record with 



Entry; From, a PUT macro expansion, or from 
an SB workfile close. 



5. To $$EERRTN if the upper extent is 
exceeded on a DASD file. 

6. To $$ECPEN to get a new extent if the 
upper extent is exceeded on a diskette 
file. 

Method; If entered for the first time, the 
PUT routine performs an I/C operation 
immediately. (After the initial entry, 
this I/C operation is bypassed.) When the 
I/C operation is complete, the routine 
checks for an EOF condition. If an 
end-of-file is detected on a unit record 
device (other than a printer), control is 
passed to the user's end-of-file routine. 
If an end-cf-file is detected en a magnetic 
tape device assigned to SYSPCH or SYSLST, 
the PUT routine fetches phase $$ecmT07 to 
determine if an alternate device is 
available. If it is not necessary tc 
handle an EOF condition, the addresses of 
the two I/C areas are exchanged, another 
I/C operation is perform.ed, and control is 
returned tc the problem program. 

The I/C subroutine first tests to 
determine the device type, and appropriate 
action is taken. If the device is a DASD 
cr diskette, a routine is initialized to 
determine if various specified limits have 
teen exceeded, and to update the seek 
address and count. When an end-cf -extent 
ccnditicn is found on a diskette and no 
more extents are available, $$BCPEN is 
fetched tc get another extent, and 
processing continues. The input/output 
operation is performed, and control returns 
tc the problem program. 

If an error occurs and the device is an 
IBM 2540 or a 2520 punch, the error 
recovery transient, $$EERRTN, is called. 
When an error recovery is complete, control 
returns tc the module. 

gcte; If RETRY=1S1C is specified as a 
parameter in the CPMCD macro, the error 
recovery facility is not present in the 
module. $$EERRTN is also called tc cancel 
the job if the upper extent is exceeded on 
a DASD file. 



Exits ; 

1. To the problem program. 

2. To the user's EOF address, if EOF 
occurs on an output device other than a 
printer. 

3. To $$ECMT07 if EOF occurs on an output 
tape assigned as SYSLST cr SYSPCH. 

U. To $$BEPRTN error recovery routine, if 
an error occurs on a 2540 or 2520 
punch. 



Objectives : 

1. Tc write a logical record. 

2. Tc read cr write FORTRAN ASCII tape 
records. 

Entry; From PUT macro expansion, cr from 
and SD workfile clcse. 
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• 256 MFCM 

• 350a Card Reader 

• 3505 Card Reader 

• 3525 Card Punch 

• 5203 Printer 

• 5425 Multifunction Card Unit 

DTFDI Macro 



The DTFDI iracro defines the file fcr device 
independent system units and generates a 



table containing the infcriraticn necessary 
to descrite the file fcr processing by the 
CIMOD logic irodule (Figure 47). 



Multivcluire input and output diskette 
files are supported. Fcr irultivcluire 
diskette input files, processing continues 
until a diskette associated \<ith each 
extent provided is processed. No voluire 
sequence checking is done. Neither the 
irultivcluire indicator nor the voluire 
sequence nuirber in the HERl label is 
examined. Sequencing of volumes is totally 
controlled by the volume serial numbers on 
the extent cards. 



^ ^ 

I Eytes I Bits 



Functicn 



0-15 
(OC-OF) 

16 
(10) 



17-19 
(11-13) 



20 
(14) 


21 
(15) 



22-28 
(16-lC) 

29 
(IE) 



30-35 
(lE-23) 

36-37 
(24-25) 

38 
(26) 



0-1 

2 

3 

4 
5-7 




1-3 

4 
5-7 



CCB. 



Not used. 

COBOL open; ignore option. 

Not used. 

DTF table address constants relocated by OPENR. 

Not used. 



Address of logic module. 



DTF Type = X'33' 



Open/Close indicators 
output. 

Symbolic filename. 



- X'02« = input, X'OO' = 



DASD or diskette device indicators 

X'OO' = 2311 

X'Ol' = 2314, 2319 

X'04' = 3330 

X'08' = 334C general 

X'09' = 3340 35ME 

X'OA' = 334C 701/.E. 

DASD address cf Format 1 label. 



DASD or diskette volume sequence number. 



Open communicaticns sv«;itch. 

1 = No more extents — diskettes 

Not used 

Always 1 

Not used. 



L X- 

Figure 47. 



DTFDI (1 of 3) , 
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J. ^ 


y 




1 Bytes 1 Ei 


ts 1 Function 

J. «. . -.«-««•„- 




174-75 1 
1 (Ujft-aE) 1 


T -.— „™- 

1 Logic irodule constants 

1 X^0020' DASE output 

1 X'0018' DASC input 

1 X'0008' Diskette devices 

1 X'OOOO' Ncn-DASD devices 




1 76-80 1 
1 (ac-50) 1 


1 Count field CCHHB (OCHRO for diskettes). 




1 81 1 
1(51) 1 


1 Key length. 




1 82-83 1 
1 (52-53) 1 


1 Data length. 




1 84-87 1 
1 (54-57)1 


1 Instruction to load ICREG with correct I/O 
1 address. 


area 


1 88-1031 
1 (58-67)1 


1 Seek, search CCVis. 

1 Seek, Read/Write CCW for diskette files. 




1 104-1111 
1 (68-6F)| 


1 TIC CCW. 

1 NOP CCW for diskette output files; 

1 unused for diskette input files. 




|112-119| 
1 (70-77) t 


1 Input/output CCW. 




|120-127| 
1 (78-7F) 1 


1 Second output CCW. 




|128-151| 
1 (80-97)1 


1 Verify CCWs for- output. 




|152-159| 
1 (98-9F) 1 


1 Error CCWl. 




|160-167| 
1 (A0-A7) 1 


1 Error CCW2. 




|168-231| 
1 (A8-E7) 1 


1 Savearea (64 bytes). 




|232-235| 
1 (E8-EB) 1 


1 DC A(WLRERR) if WLRERR=Address. 
1 E 28(15) if ERROF'I= oiritted. 
1 B 25(15) if ERRCF1=SKIP. 
1 E 28(15) if ERRCP'I=IGNORE . 




|236-239| 
1 (EC-EE) 1 


1 DC A(ERROFT) if ERROPT=Address. 
1 E 0(15) if ERRCPT= omitted. 
1 E 24(15) if ERRCF'I=SKIP. 
1 E 28(15) if ERRCP'I=IGNORE . 





± X J 



L X 

Nurcbers in 
Figure 47. 



parentheses are displaceirents in hexadeciiral rotation, 
DTFDI (3 of 3) . 
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than diskette, or SYSLST or SYSPCH 
assigned to an output tape. 

5. To the user's WLR or ERHCPT routine, if 
specified in the DTFDI iracrc 
parameters, to handle ether error 
conditions. 

6. To $$BCFEN to get a new extent if the 
upper extent limit is exceeded en a 
diskette file. 

Metho d; The PUT routine deterirines the 
device type and selects the proper I/O 
operation to write the record tc the file: 

1. If the device is a reader cr a iragnetic 
tape, an SVC is issued directly. 

2. If the device is a DASE, the nuirber of 
the record to be written is checked and 
the CCHHR seek address is updated, if 
necessary, before the SVC C is issued. 
If an end-of-extent condition is fcund 
on a diskette, $$ECPEN is fetched tc 
get another diskette extent, and 
processing continues. 

3. If the device is a printer cr punch, 
the control code is determined, 
converted to EBCDIC code if ASA is 
specified (refer to Appendix F), and 
the control function is perfcrired. 
When the control function is ccmplete, 
an SVC C is issued to write the record. 

After the record is written, tests 
determine if a unit exception cr error 
condition occurred. If a unit exception 
occurred, the following action is taken: 

1. For printers, the unit exception is 
ignored. 

2. For output tapes assigned tc either 
SYSLST cr SYSPCH, phase $$ECiy!TC7 is 
fetched to determine the availability 
of an alternate. device. 

3. For all ether devices, the address of 
the user's EOF routine is obtained from 
the DTF table and used as the return 
address from the PUT routine. 

ether error conditions are handled as 
specified by the user in the DTFDI macro 
parameters. 



Entry; Frcm a PUT macrc expansion in the 
prcblem program. 



E xit s; 

1. To the next sequential instruction in 
the problem program fcllcwing the PUT 
macro expansion after the record is 
writter to the file. 

2. Tc phase $$BCMT07 if an EOF condition 
is reached on an output tape assigned 
tc either SYSLST or SYSPCH. 

3. To the user's EOF routine if an 
end-cf-file ccnditicr is reached en 
devices other than diskette, cr SYSLST 
cr SYSPCH assigned tc an cutput tape. 

^. Tc phase $$BERRTN if a punch errer 
occurs. 

5. To the user's WLR or ERRCPT routine, if 
specified in the DTFDI macrc 
parameters, to handle other error 
conditions. 

6. To $$ECPEN to get a new extent if the 
upper extent limit is exceeded on a 
diskette file. 

Kethcd; The PUT routine, when two I/O 
areas are employed, functions in the same 
manner as a PUT with ore I/O area. The 
difference between the two routines is in 
alternately exchanging the addresses of the 
two I/C areas each time a PUT macrc is 
issued. Even though two areas are used, 
the exchange of addresses makes it possible 
for the user to insert the record to be 
written at the same address for each PUT 
macro issued. 



$$EERPTP; 1018 Paper- Ta pe Punch Error 
Recovery Charts PH-PJ "" " 



objective: To attempt a recovery from a 
puneh data-check condition or a 1018 
paper-tape punch with the Error Correction 
Feature. 

Ent ry: From an output PTMCD, or from 
$$ECLOSP if closing a file using two I/O 
areas. 



DIMCD: 



PUT I^acro, 2 I/Q Areas Charts PE-PF 



Cbjeetives; To write the next sequential 
logieal record to the file from a user 
specified output area and to provide 
overlap through the use of two I/C areas. 



Exits: 



2. 



To the calling rcutir.e after the error 
is corrected. 

Automatic job termination if the 
unrecoverable error must net be ignored 
(for shifted codes). 
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7, To $$B0MSG1 to issue the error message^ 
a883I INVALID LOGICAL UNIT. 

8. To $$BODUCP if the file is a diskette 
file. 



a. To $$ECMSG1, to print the following 
iressages: 



4 8831 INVALID LCGICAL UNIT 



Metho d; This routine is called by the Open 
Monitor v^hen the file is found to be a 
DTFCP or DTFDI type (Version 1 DTFCP 
excluded). Because the logic ircdules for 
both file types provide for device 
independence, this phase is needed to 
determine the device type associated with 
the logical unit. The PUB is located for 
the logical unit and the DTF is initialized 
according to the device type (refer to 
Figures 44, 45, and 46). 

The LDIOREG routine initializes the 
user's I/O register. 

If the device is tape, a check 
determines if Job Control has already 
opened the device. If the file is open and 
if there are more files to open, the TES 
processor, $$BOPEN, is fetched. If no more 
files remain to be opened, ccntrcl returns 
to the problem program. If the file has 
not been opened, $$B0CPT1 is called to open 
the input files, and $$B0CPT2 is called to 
open the output files. 

If device type cannot be determined, an 
error m.essage is issued and the job is 
canceled. If the device is a taje drive 
and found to be file-protected, an error 
message is issued and the operator may 
either insert a ring in the tape reel or 
cancel. 



4 884D NEED FILE PROTECT RING 



Method: This phase functions in the same 
manner as $$BOCP01, except when it is 
entered from a message routine. If this is 
the case, a sense command is issued and a 
test is made for file protect. If the file 
is not file-protected, $$ECMT06 is fetched. 
If it is, a message is printed, via 
$$E0MSG1. 



$$ECCP03; Open Device Independent Files - 

Phase 3 Chart QC 



Objective: To open the CTFCP anc ETFDI 
tables fcr unit record files (Version 1 
ETFCP excluded). 



Entry: From $$BOCP01. 
Exits: 

1. To $$ECPEN if additional files remain 
to be opened. 

2. To the problem program, if no 
additional files remain to be opened. 



$$E0CPQ 2; Open Device Independent Files - 

Phase 2 Chart QB 



Objective: To open the DTFCP tables of the 
tape resident system type (Version 1 
DTFCP) . 

Note: A tape resident type ETFCP table is 
generated for DOS if the DISK= parameter is 
omitted from the DTFCP macro. 

Entry: From $$BOCP01, or from $$ECMSG1. 

Exits : 

1. To $$BOPEN, if additional files remain 
to be opened. 

2. To the problem program., if no more 
files remain to be opened. 

3. To $$BOMT06, if the device type is tape 
and the CP type is input. 



Method: The routine at the label UNTRCP 
initializes an I/O area. The addresses of 
the I/O area in the CCVv and the alternate 
I/O area are m.odified to bypass the control 
character if the device is a printer or a 
punch. This routine also re-initializes 
the DTF table if the device is a 
reader-punch. 

If the device is a 1403, 3203, or 5203 
printer with the Universal Character SET 
(UCS) , a set m.ode command is given to 
suppress data checks. 

If the device is a 256C or 5425, the 
command code required fcr the specified 
hopper is inserted in the first COW for 
input files. For output files, two CCWs 
are loaded; the first for stacker 
selection, the second for the punch 
operation. 

This phase functions in the same manner 
as $$E0CPC1 to open unit record files. 
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$$E0CPT2: Open DTFCP and DTFDI Output Tape 
Charts RD-RF 



Obje cti ve; To determine if output tape 
file is to be created with labels and to 
fetch the necessary routine if it is; to 
open the file if it will be unlabeled. 

Entries: 



Entries: 



Eroiti $$ECCPT2 if cutput tape is already 
labeled or if label inforiraticn was 
supplied by TLEL [TPLl^E] jcb ccntrcl 
statements. 

Ey return frcir $$ECCPT2 after a iressage 
has been issued, and a ncn-cancel reply 
has been received. 



1. From $$ECCP01 if the file is defined by 
DTFCP or DTFDI for output and the 
device is a tape. 

2. From $$ECCPM2 after a iressage has been 
issued and a non-cancel reply has been 
received. 

3. From $$ECCPT3 returning for retry. 
Exits; 

1. To $$BCCPT3, the open transient for 
labeled cutput tapes. 

2. To the TES processor, $$EOPEN, if irore 
files reirain to be opened. 

3. To the problem program, if no ncre 
files remain to be opened. 

4. To the m.essage writer, $$ECCFM2, when 
an error condition occurs. 

Method; Upon initial entry frcir $$EOCP01, 
this phase searches for label infcriraticn 
on SYSRES as supplied by TLEL (cr TPLAE) 
job control statements and then reads the 
first record on the output tape to check 
for a VOLl label or a tapeirark. 

The presence of either the VCLl label or 
TLEL information requires the creation of a 
new HDRl label. This phase tests fcr file 
protection, load point, and 16CC EPI and 
then fetches and transfers ccntrcl to 
$$ECCPT3 for the actual label checking and 
writing. 

If an unlabeled output tape file is to 
be opened, this routine determines if the 
tape has a tapemark. If the tape has a 
tapemark, it is retained. If the tape 
lacks a tapemark, no tapemark is written. 

Note; If bit 6=1 in byte 16 of the DTFCP, 
and if DISK=YES, then input data is in 
ASCII mode. 



$$ECCPT3: Open DTFCP and DTFDI labeled 

Output Tape Charts RG-RJ 



Objective ; 
files. 



To open labeled cutput tape 



Exits ; 

1. To the TES processor, $$EOPEK, if more 
files remain tc be opened. 

2. Tc the problem program if nc mere files 
remain to be opened. 

3. To the message writer, $$ECCPM2, when 
an errcr ccnditicn occurs. 

4. Tc phase $$B0CPT2 fcr retry if entry tc 
this phase was neither from $$E0CPT2 
ncr a return frcm the message writer. 

5. Tc the Standard Volume Label Rewriter, 
$$ECKVCL, if the volume label must be 
rewritten according tc the user 
specified density. 



Kethcd: After relocating the CCE's and 
CCW's for the tape I/O routines, the m.cde 
and density are set fcr the user's file 
tape. Ther the instructions necessary tc 
search for TLEL information on SYSRES are 
initialized with necessary disk and storage 
addresses. The Communication Region is 
then tested tc see if entry is a return 
from the message writer. If it is, reentry 
will be tc the label PR0CRUN2 to execute 
the next subroutine cf the prccecure group 
unless a more specific return address 
exists in the linkage register. 

If entry was frcm $$ECCPT2, the proper 
series of subroutines are executed as 
chcsen by the procedure pointer passed to 
this phase in the register equated as 
PRCCPTR. 

Effectively, the acticr cf these 
subroutines is such that for standard 
labeled cutput tapes: 

1. Expiration date is checked. 

2. If label information is provided by 
TLEL (cr TPLAE) cards, a new HDRl label 
is written. 

3. If label information is ret provided, a 
dummy header is written. 

t|. No additional standard header cr user 
header labels are written. 
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$$ECLQSP: 



Punch File Close Charts SC-SB 



Objective : To close DIFCP, ETFDI, and 
DTFCD punch files and recover pcssible 
errors occurring when the last card in the 
file is punched. To close ETFPT and tc 
check the last record if the output file 
has two I/C areas. 

Entries: 

• Froir the Close Monitor, $$BCLCSE, tc the 
entry point EEGINRTN. 

• From $$EEFPTP, if an errcr has teen 
detected on a 1018 paper-tape punch 
using a ETFPT output file with two I/O 
areas during the last punch cperaticn 
and if error recovery procedure is in 
process. 

Exits; 

• To the Close Monitor $$ECI0SE if there 
are additional files to te clcsed. 

• To the problem program if nc additional 
files remain to be closed. 

• To $$BERPTP if an error occurred during 
the last punch operation on a 1018 
paper-tape punch using a DTFPT output 
file with two I/O areas. 

Method: This routine first determines the 
device type. If the device is a* mU2 punch 
or a 1442 reader-punch, the routine exits 
to the Close Monitor or to the problem 
program if no additional files remain to be 
closed. Depending upon the file type and 
whether there are one or twc I/C areas, the 
following actions are taken: 

1. For a DTFCE file with twc I/C areas 
where the device is a 2540 punch, an 
error, if it has occurred, is corrected 
on the card preceding the last card. 
Then, any error detected on the last 
card is corrected. 

2. For a DTFCD file with one I/C area 
where the device is a 2540 punch, any 
error detected on the last card is 
corrected. 

3. For a DTFCE file with twc I/C areas 
where the device is a 2520 punch, any 
error detected on the last card is 
corrected. 

4. For a DTFCD file with one I/C area 
where the device is a 2520 punch, nc 
error recovery is needed and the 
routine takes the proper exit. 

5. For a ETFCP and ETFDI files (ere or twc 
I/O areas) where the device is a 2540 



punch, error recovery is performed 
first en the card preceding the last 
card punched. Then, any errcr detected 
on the last card is corrected. 

6. For a ETFCP and ETFEI files (one or twc 
I/C areas) where the device is a 2520 
punch, any errcr en the last card is 
corrected. 

7. Fcr a ETFPT output file with two I/O 
areas, the checking of the last record 
is performed, and in case an 
unrecoverable error occurred, a channel 
program is reissued tc punch the entire 
erronecus record if the ERRCFT operand 
is ceded in the ETFPT. 

In all eases, whenever an error card is 
repunched correctly, the message 40001 
RETRY is printed on SYSLCG tc inferm. the 
cperator that the error was retried. 



$$ECCPM1 and $$BCCPM2; ETFCP/ETFEI Message 

Vvriters Chart SE 



Chjective: To write messages en SYSLCG and 
to process operator responses tc the 
messages issued. 



Entry: From the DTFCP and DTFEI tape cpen 
reutines, $$B0CPT1 and $$ECCPT2. 



Exits; 

1. Jor certain messages, autcmatie jet 
term.ination. 

2. Fcr CAKCEL respcnse er nc console, job 
canceled. 

3. Fcr IGKCRE, NEWTAP, RETRY responses or 
information- type messages, the next 
phase tc he executed is fetched. 

$$ECCPM1 Messages : 

4111A - NO VOLl LEL FOUND 

411 2A - VOL SERIAL NC. ERRCR 

4113D - NC HDRl LAEEL FCUND 

4114A - FILE SEC NO. ERROR 

4115A - FILE SER. NC. ERRCR 

411 6A - VOLUME SEQ. NC . ERRCR 

4132E - ERRCR IN FILE ID 

4133D - ERROR IN HER LEL 
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DISKETTE FILES 



Diskette input/output files are processed 
by the Sequential Access Method. These 
files, defined by the DTFDU iracrc, are 
either input or output data files. 

A diskette file contains records that 
are processed from a beginning diskette 
address and that continue in sequential 
order through the records en successive 
tracks, cylinders, and voluires tc the 
ending address. 

A diskette file is contained within one 
or ir.ore sets of limits called extents. 
These extents are specified in the file 
label on the diskette for input files, and 
are computed and stored in the file label 
for output files by the open routines. The 
user can identify the files to be processed 
through the // DLBL and // EXTENT job 
control cards. The records v^ithin each 
extent roust be adjacent on a vcluire. Only 
one extent is allowed per vcluire, hut files 
iray cross diskette voluire boundaries. If 
the logical file consists of more than one 
extent, each extent is accessed in the 
sequence specified by the user. 

The data handling logic ircdules for 
files defined fcr logical IOCS by the ETFDU 
macro are provided by the associated ircdule 
generation iracrc, DUMCCFx, where x is 
determined by the function cf the file. 



Diskette files are opened an 
logical transient routines that 
by the open and close ironitcrs 
LICCS Volume 1) . The open rout 
procedures fcr checking each fi 
any records are processed. The 
routines provide procedures for 
each file after all records are 



d closed by 
are fetched 

(see DOS/vs 

ines provide 

le before 
clcse 

terminating 
processed. 



Diskette files can also be defined for 
physical IOCS if the user intends to use 
physical IOCS macros (such as EXCF and 
WAIT). These files are defined by a DTFFH 
macro. In addition, diskette files can be 
defined by the device independent macros, 
DTFCF and DTFDI. These files are described 
under "Device Independent Files". 



Record Format 



Logical records in a diskette file can only 
be in fixed-length format. The diskette is 
initialized to 128-byte sectors; therefore 
the maximum record size may not exceed 128 
bytes. The format of the record is 



specified by the user in the DTFDU macro 
instructicr which defines the file. 



STORAGE AREAS 



IKFUT/CUTFUT AREAS 



The logical IOCS GET-PUT macro instructions 
allow the programmer to use cne cr two I/O 
areas and to process records either in a 
workarea or in an I/C area. 

Using DTFDU, it is possible tc logically 
block the individual records in the I/C 
areas by command chaining the input and 
cutput operations. This allows logical 
ICCS to read or write multiple individual 
records when the device is being addressed. 
In subsequent discussions, the term 
"chained records" is usee tc describe this 
method of reading and writing. 



When chained record 
in an I/C area with no 
(cr when rcn-chained r 
processed in two I/O a 
specified) , the DTFDU 
must include the ICREG 
ICCS uses this registe 
address of the logical 
currently available fc 
problem program.. 



s are to he processed 

workarea specified 
eccrds are tc be 
reas with no workarea 
macro instruction 

parameter. Logical 
r tc specify the 

record that is 
r prccessing by the 



jy.CDULE SAVE AREAS 



If RDCNLY=^ES is inc 
generation macro, th 
and must never be mo 
program. Each DTF r 
must have a 72-byte 
area associated with 
used by the module d 
address cf the save 
module in register 1 



luded in the module 
€ nccule is reentrant 
dified by the problem 
eferercirg the module 
doubleword aligned save 
it. This save area is 
uring execution. The 
area is passed tc the 



If the module is to be shared by DTFs in 

different tasks, the module must be made 

reentrant. This is done by associating a 

unique save area with each DTF. 

Fcr diskettes, the save area contains 
the user's general registers, switches, and 
ether information needed by the module. 
Figures 48 and 49 illustrate the format of 
the save area for each Icgic mcdule. 
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DTFDU MACRO 



To process a diskette file of data records^ 
the file must first be defined fcy the 
declarative iracro DTFDU (Define The File 
for Diskette Unit). This iracrc describes 
the characteristics of the Icgical file, 
indicates the type of function being 



perfcrired, define^ the fcrirat cf the record 
being processed, and specifies the storage 
areas and routines used for the file. A 
ETF table is then generated acccrding to 
the paraireters specified in the operands cf 
the ETFDU nacre instruction. Figure 5C 
illustrates the DTF table generated for 
diskette files. 



J. ^ ^- 

I Eytes I Bits I 



Contents 



Function 
Ccirirand control Block (CCE) 



0-15 
(0-F) 

16 
(10) 



17-19 
(11-13) 

20 
(14) 

21 
(15) 



22-28 
(16- IC) 

29 
(ID) 

30-35 
(IE- 23) 

36-37 
(24-25) 

38 
(26) 



0-3 
5-7 




1-2 
3 
4 
5 
6 
7 




1-2 

3 

4 
5-6 

7 



1 
2-3 

4 

5 
6-7 



E'OOOO' 
£•000' 

X'lA' 

E'OO' 
E'O' 



X'06' 



C'OOCHROO' 



£•00' 



£•00' 



Not used. 

1 = DTF relocated by CPENP, 

Not used. 

Address of logic module. 



DTF type for OPEN/CLOSE 
(X'lA^ = diskette file). 

1 = Ccmirand chained file. 

Net used. 

1 = Workarea specified. 

Net used. 

1 = Open; = Close. 

1 = Input; C = Output. 

Not used. 

Filename. 



Device type code. 
(X'06' = 3540). 

Address of HDRl label in 
VTCC. 

Volume sequence number. 



Open communications byte 

Input File 

1 = No more extents 

Net used 

1 = Exit for user's EOF routine 

1 = Next extent on nevv volume 

Not used 

1 = Extent switch. 

Output File 

1 = No more extents 

1 = Extents needed at Close time 

Not used 

1 = Next extent on nevv volume 

1 = Extent entered via console 

Net used. 



Figure 50. ETFDU Table (Part 1 of 3) 
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J. y 

I Eytes I Bits 

F + 

92-95 
(5C-5F) 

96-99 
(6C-63) 



Contents 



I 



F\3nction 
Logical record size, 



100 
(64) 



101-103 
(65-67) 

104 
(68) 

105 
(69) 



106 
(6A) 

107 
(6E) 

108 
(6C) 



1C9-111 
(6D-6F) 

112-119 
(70-77) 

120-127 
(78-7F) 

128-135 
(80-87) 

136-143 
(88-8F) 

144-X 
(90-Y 

X+1 
(Y+1) 




1 
2 
3 
4 
5-7 





1 

2 

3-7 



£•00000* 
X»00' 

X'OO' 



£•0' 
X'OOOOCO' 



X=143+8*(# of CCVis) 
Y=8F+8*(# cf CC^S) 



Address cf last byte cf the 
I/C area. 

Logical indicators. 
1: ERROPT=address 
1: ERRCFT=IGNCRE 
1: ERROPT=SKIP 
Not used 

1 = Two I/C areas 
Not used- 
Address of user's error handling 
routine, 

CCW count (virite ccirirand only). 



Allowed operations 

1 = Allow read coirirands 

1 = Allow write coirirands 

1 = Suppress unit check on C4/C6 

Not used. 

sector factor (X«00'=128). 



Reserved. 



1 = Write protect 

1 = No feed at EOF 

1 = Check irultivoluire sequence 

1 = Multi^;oluire file 

Not used 

1 = C6s written (update ERKAP) 

1 = READ/WRITE security 

Not used. 

Not used. 



Feed CCW- 



Define ops CCW (output); 
8X'C0' (input). 

Seek CCW. 



TIC CCW. 



Read/write data CCWs; 1, 2, 13, 
or 26 read/write CCWs. 

NCP CCW (output only) . 



Nuirbers in parentheses are displaceirents in hexadeciiral rotation. 
Figure 50. DTFDU Table (Part 3 of 3) 
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J. y^-^ — J — 

I Eytes I Bits | Function 
^ + 4. 



39 
(27) 

(28) 



Sequence nuirber cf current extent being opened. 



Sequence nuirber cf last extent cpened 
(not a console extent entry) . 



lUl-43 1 
(29-2E) 

(2C-2F) 

ia8-5i 

(30-33) 

152-53 
(34-35) 

5a-57 
(36-39) 

158-59 
(3A-3E) 

160-63 
(3C-3F) 

64 
(40) 

65-67 
(41-43) 

168-71 
(44-47) 

72 
(48) 

73 

(49) 

74 
(4A) 



Not used. 



Address of lOAREAl. 



Not used. 



X»0000« 



Extent upper liirit (OCHR) 



Not used. 



Extent lower liirxt (OCHR). 



Record nuirher. l=Input, 0=Cutput, 



Not used. 



OCHR contrcl tucket. 

OCHR = X'CC490C1A' for 3540 (cutput only), 

Record nuirber. 



X'lO* - niultivcluire file (input) 

X'40* - last vcluire on irultivcluire file (input), 

Record size (iraxiiruir cf 128). 



Not used. 



75 
(4E) 

176-80 
(4C-50) 

181-83 
(51-53) 

L X .-X , , J 

Numbers in parentheses are displaceirents in hexadeciiral notation. 
Figure 51. CTFPH Table for Diskette (Part 2 cf 2) 



OCHR bucket = extent Icwer liirit and record 
number (output). 

Not used. 
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3. $$BOPEN is fetched to open the next 
extent. 

If end-of-extent has been exceeded and 
there are no mere extents, the following 
action is taken: 

1. The ERMAP record is updated if bad spot 
records were written on the diskette 
because of an ERET RETRY situation. 

2. $$BOPEN is fetched, 

If the ERROPT parameter has been specified, 
errors are processed as each record or 
chain of records is written. If EFREXT is 
specified, additional errors are returned 
to the problem program for further 
processing. 



DU^<!CDFC! Close Processing Chart 13E 

O bjecti ve; To write any reiraining records 
in sequence on the diskette file. 

Entry: From the close transient, $$B0EIC4. 

Exit: To $$EODIca, via an SVC 9. 

Method: This routine sets on the partial 
block switch and determines if there are 
any logical records to be written to the 
file. If so, the chain of CCWs tc write 
the proper number of records is set up; 
then the PUT routine is given ccntrcl tc 
write the short chain to the file. After 
that the CLOSE routine regains ccntrcl, the 
module switches are set off, and a branch 
is made to the PUT routine tc exit to the 
close transient $$BCEIC4. 



INITIALIZATICN AND TERMINATION PFCCEBURES 



When a diskette file (CTFDU) is opened, and 
the file is on m.ore than one vclume, only 
one extent is processed at a time, so cnly 
one volume need be online at a time. 

Job Control accepts label infcrmaticn 
supplied by ELEL and EXTENT statements. 
Job Control stores this DASE label 
information on the SYSRES CASD label 
information cylinder. The TES Prccesscr, 
$$ECPEN, prepares to read the label 
information from the SYSRES label 
information cylinder into the logical 
transient area, and then fetches $$E35U00. 

The diskette open logical transients 
read the DASE label information frcm> SYSRES 
into storage. The format of the SYSRES 
DASE label information is illustrated in 



ECS/VS LICCS Volume 1, SY 3 3- 6559. If the 
file is ar input file, the cpen transients 
compare the file label infcrmaticn with the 
SYSRES DASE label infcrmaticn tc determine 
if the logical file is correct and if the 
serial numbers are equal. 

If the logical file is an output file, 
the open logical transients create file 
labels and write them in their appropriate 
location. Extent limits are determined and 
overlapped, expired file labels are 
deleted. 

When a file is closed, the close logical 
transient determines whether a block of 
data remains to be processed. If so, the 
Icgic module is re-entered tc complete 
processing. The file labels are updated 
and rewritten if the file is an cutput 
file. Control returns to the clcse monitor 
cr the prctlem program. 



DISKETTE CPEN/CLOSE LOGIC 



Cpen Diskette Files^ General Chart 08 



When a diskette file is processed (DTFDU 
specified) , CPEN initially takes care cf 
the following functions: 

1. The standard label (s) on the vclume, or 
on the first volume cf a multivolume 
file, is checked. 

2. The first extent on the first vclume is 
located and made available for 
processing. 

Logical IOCS processes ore extent at a time 
in the sequence specified by the user's 
EXTENT statements. when Icgical ICCS 
detects the end of the current extent, it 
branches tc the end-cf -extent routine. 
CPEN then locates the next extent specified 
by the control statements and makes it 
available for processing. Fcr each 
subsequent extent used by the file, CPEN 
checks the standard labels or that new 
volume (see Charts UC and UD for general 
CPEN flew) . 



CPEN (Input Diskette) Gereral Flew 
Chart 09 



If the file tc be opened is a ncrmal input 
file, the extents are read and checked as 
reeded. The file labels are checked 
against the DLBL information. The open 
indicator fcr the file is turned en and 
control returns to the user. 
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r T T r T 1 

I I Input I Output I Input | Output | 
I I Prograirmer | Prcgrairirer | Systeir | Syst€ir | 
I I Logical Unit | Logical Unit | Logical Unit | Logical Unit | 
j. 1 + + + ^ 

i DTFCP I A I A I N I A I 

^ + 4 4 + ^ 

I DTFDI I NA I NA I N | A | 

^ 4 4 4 4 «^ 

I DTFDU I S I S I N I S | 

|. 4 4 4 4 ^ 

I DTfPH I A I A I N I A | 

^ X ± X X ^ 

I A = Always feed at close tiire, | 

I S = User can suppress feed at close time, j 

I N = Never feed at close time. | 

I NA= Not applicable. j 

L J 

Figure 52. This table indicates if diskettes are fed at close tiire 



$$E35UQl! Diskette Open Input, 

DLEL Extents Charts VA-VC 



This phase is used to control 
the sequence of operations required for 
opening each file extent. It also 
provides an entry to the user's 
end-of~file routine, if specified, when 
the end of the last extent is reached or 
if the itiultivoluire indicator in the HDFl 
label indicates last extent for CTFDU. 
Furthermore it checks for the CCECL 
Open/Ignore function. 



Entry; Froir $$E35i*00. 
$$ECDiyiSG. 

Exits: 



Reentry from 



1. To $$B0DI01 to process vcluire labels. 

2. To $$BCPEN if the last ELEL extent has 
been processed and another file is to 
be opened. 

3. To the user's end-of~file rcutine. 

U. To $$B0ENSG for operator 
communication . 

Wethod: If a system unit is being opened 
and the BTF does not indicate open, this 
routine gets extent information for the 
DTF from the DIE. Otherwise, both system 
and programrrer units are handled 
identically. 

$$B3540I tests for the availability of 
DLEL extents. If no more extents are 
available or if the multivoluire indicator 
indicates last volume, an exit is rrade to 
the user's end-of-file routine. If the 
file has been opened previously, the next 
consecutive ELEL extent to be opened is 
read. 



If the COBOL Open/Ignore function has 
been specified and the device is 
unassigned or assigned to IGN, the open is 
bypassed. If the device is assigned, open 
is continued. 

If the Cpen/Igncre function has not 
teen specified and the device is 
unassigned or assigned tc IGK, the job is 
canceled. Otherwise, open continues. 

This routine also determines whether 
the assigned device is the correct device 
and ensures that only one file is open on 
the device. If this is ret the case, the 
job is canceled; otherwise, this transient 
passes control to $$ECEIC1. 



$$ECEIC1; Eiskette Volume Label Erocessorj 
Charts VD-VE 



Objective: This phase reads the volume 
label and checks it for validity. It also 
ensures that the proper volume is mounted 
and requests further infcrmaticn from the 
operator if a secured volume is teing 
opened. 

Entries : 

1. $$E35aCI, $$B35U0C, and $$ECEI08. 

2. Reentry from $$BCEKSG and ECESWO. 
Exits; 

1. Tc $$ECDI02 if open cutput. 

2. To $$ECDIC5 if open input. 

3. Tc $$ECDSMC if a secured volume. 
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If the Open/Ignore opticn has net been 
specified and the device is unassigned cr 
assigned to IGN, the jcb is canceled; 
otherwise, the open procedure is 
continued • 

Ihis routine also deterirines whether 
the assigned device is the correct device 
and ensures that only one file is open on 
that device, if not, the jcb is canceled; 
otherwise, this transient fetches 
$$ECDIC1, 



$$ECDIQ2; Di s k ette Open Qutput^^Eeteririne 

Extents and Delete HDRl Labels 
Charts WD-WF 



Objective : To determine the extent liirits 
for the file on the diskette. Tc prevent 
a duplicate file being created, tc delete 
both overlapped and duplicate expired 
files, and to determine the new HEFl label 
address. 



Entry; Froir $$B0DI01. 
E xits : 

1. To $$B0DI0 3 to create a new HDBl 
label. 

2. To $$BODWSG for operator 
coirirunicaticn. 

Method: Twc passes are made through all 
of the HDRl records. 



Pass 1. 



All HDRl labels a 
deteririne if the 
write-protected c 
If either of thes 
exists, the file 
compared with the 
the new file; if 
equal, the job is 
Otherwise, the cp 
The highest upper 
track plus 1 of a 
write-protected c 
file is made the 
limit of the new 



re exanined to 
files are 
r unexpired, 
e conditions 
naire is 

file name of 
they are 

canceled, 
en continues. 

extent limit 
ny 

r unexpected 
lower extent 
file. 



Pass 2. 



All HDRl labels are re-read and 
the first delete control record 
that is encountered (either 
read or written) is made the 
address of the new HDRl label. 
All overlapped files are 
deleted. All expired, 
ncn-write-protected files with 
duplicate file names area also 
deleted. Then this transient 
fetches $$B0DI03. 



$$E0DI03; Diskette Cpen,,Cutput, 

Create/Write New HDRl Label Charts WG-WJ 



Objective; To build and write a new HDRl 
label for the file being opened. 

^H^El' ^^<^«^ $$B0DI02. 
Exits : 

1. To $$ECDI07 to initialize the DTF. 

2. To $$ECDMSG for operator 
ccirmuricaticn . 

Nethcd; This routine verifies that at 
least cne complete track is available and 
that a new HDRl label address was found. 
If either cf these ccnditicns is net met, 
the job is canceled; otherwise, the new 
HDRl label fcr the file is created and 
written cut on the diskette. 



$$E0DI07; Diskette Open Output, 
Initialize DTF Table Charts VvK-WI 



Objective; Tc update the DTF table. 
Entry; From $$B0DI0 3. 
Exits ; 

1. Tc $$EOPEN to cpen the next file. 

2. Tc $$ECDIOU if Close needed an extent. 

3. Tc $$ECDiy!SG for operator 
communication • 

4. To the problem program. 

Method; This routine posts appropriate 
extent irfcrmation ir the DTF table and in 
the DIE in case of a system file. 



jjEODUCP; Diskette ETFCF/DTFDI Cpen, Set 

Up Skeleton DTF Charts WK-WN 



Objective: Tc prepare a compiler cf 
device independent DTF fcr a diskette 
file, so that normal diskette cpen phases 
can be used to complete the cpen 
procedure . 

Entry; From $$BCCF01. 

Exit; To $$ECPEN1 tc call the proper 
diskette open phase. 
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CHARTS 



EXFL/VNATION CF FLOWCHART SYNECIS 



DESCRIPTION 



«4t4t4i* A l*4"t'4>4>4i><'«4>4i 



PROCESS 
*B2 



m********:¥******* 



* LABEL 1 BW* 
♦-♦-♦-♦-*-♦-*-♦-♦ 

* * 

* SUBROUTINE * 

* ♦ 



A group of program instructions that perform 
a processing function of the program. The 
label, if any, is shown above the block. 



*B2 
IF ANY ADDITIONAL EXPLANATION IS 
REQUIRED, ITS LOCATION ON THE CHART 
IS IDENTIFIED BY AN ASTERISK AND 
THE BLOCK 10. 



Description or title of a routine that is detail- 
ed on another flowchart. The starting label 
of the routine and the flowchart ID appear 
above the stripe. 



4(4.4t4t4t * REFERENCES 
♦ ♦ TO BJBA: 
» *♦ RB04, 8CB2 
* ♦ BLJl 



START X 



READ 
A RECORD 



^tti^ntim************ 



* ♦ 

* * 

* PREPARATION * 



♦ * * * 

♦ ♦PREDEFINED ♦ ♦ 

♦ ♦ PROCESS ♦ ♦ 

♦ * ♦ ♦ 



4>4c ♦El ♦♦♦♦♦♦♦♦♦♦♦♦ 
INPUT/OUTPUT 
^^^(♦♦♦♦♦♦♦^ ♦«*♦♦* 



An instruction, or group of instructions, that 
changes portion of a routine or initializes a 
routine for a given condition. 



A group of operations not detailed in the 
flowcharts in this manual, such as user rou- 
tines. 



Any function of an input/output device or 
program, usually branching to an I/O routine 
to perform the function stated in the block. 



.♦ 
. .♦ 

♦ NO 



^f1tt***0'^********** 



PROCESS 
THE RECORD 



4c4(**4<4>**4t^^«4t4>^^^ 



USEXI5 .♦. 

EA ♦. 
.♦ *. 

.♦ USER ♦. YES 
♦. OPTION ...... 

♦ . .♦ 

♦ . .♦ 



4i4<*4r«C5 ♦♦♦♦♦♦♦♦♦♦ 
♦EPPTN BG^ 

. X^ ♦ 

♦ ERROR ROUTINE ♦ 



4e*«4<*E 5 ♦♦♦♦♦♦♦♦♦♦ 



. X^ USER "OUTTNE^ ♦ 



4(4'4'4'4'4t4'4c4'4c4t4t4(*4t4i4< 



DECISION .'♦ 

.♦ 



«4c*4(G !♦♦♦♦♦♦♦♦♦ 

♦ ♦ 

♦ TERMINAL ♦ 

♦ * 



Points where the program branches to alter- 
nate processing, based upon variable con- 
ditions such as program switch settings and 
test results. 



The beginning or end of a program or routine. 



On-page connector. An entry from or an exit 
to another function on the same flowchart. 
The location in the connector identifies the 
block to which entry on a chart is made. 



X 






RECALT .♦. 






F4 ♦. 




Hc*f:^**m**** 


.♦ ♦ . 




* 


.♦ RECORD ♦. 


YES 


* MOOT FY 


♦ . ALTERED 


♦•.....• 


.X^ OPTMT 


♦ . .♦ 




♦TNSTRUCTTONS 


♦ . .♦ 




* 


♦ . .♦ 




Iti^f****:^**** 


♦ NO 




, 


**** 






* * , 




, 


♦ GA ♦.X. 




, 


♦ ♦ .X.««.** 






♦*** X 






RECPRO .*. 






G4 *. 






.♦ ♦. 






.♦ALL RECORDS^. 


NO 




♦. PROCESSED . 


♦ .... 




♦ . .♦ 






♦ . •♦ 






♦ . .♦ 


X 




♦ YES 


***** 

♦BL ♦ 

♦ Al* 

♦ * 

* 
PRINT 





*it:tf^y^^********* 

* * 

* END-OF-JOB * 

* * 



***** 

♦ BD ♦ 

♦ 04^ 



Off-page connector. An entry from, or exit 
to, a given point on another flowchart. The 
characters In the connector identify the chart 
and block to which or from which control is 
passed. The corresponding label, if any, is 
placed outside the outgoing connector. For 
multiple entries, an asterisk is placed in the 
connector and the locations from which 
control is passed are listed nearby. 
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Chart 02 • Magnetic Tape Close and EOF/EOV Routine 



( EOF/EOV Entry J 

^ — 





$$BCEOV 1 






1. Determine type and 






format of the file from 






its DTP table. 






2. Read //TLBL card Image. 






3. Format open table. 




System 


4. File type? 


Input Input 


Unit 


^^^ 


Forward Backward 






N 


y^ 














Output 






\ 


r 




^i 




♦ 




♦ 


$$BCMT07 




$$BCMT04 




$$BCMT01 




$$BCMT03 


1. Close current SYSPCH 


1. Close tape reel in process 


1 . Read and process 


1. Read header label as a 


or SYSLST output 




by writing trailer label 




standard trailer labels. 




trailer label. 


file by writing tapemark. 




and tapemark. 




2. Read user labels in user 




2. Read user labels in user 


2. Rewind and unload 




2. Write user labels in user 




routine if required. 




routine If required 


initial tape reel. 




routine If required. 




3. EOF or EOV? 




















3. Switch to alternate 












drive if specified. 






EOV v^Nv EOF 








^ 


^ 




^^ 








f 




$$BCMT02 








i 


^ 


1. Get alternate drive if 
assigned. 




/o\/r» 1 1 Cwi* 4.^ ^\ 


$$BJCOPT 




V user EOF addressy 






1. Open alternate tape 








assigned to SYSPCH 




2. Call appropriate phase 




or SYSLST by 




to open files. 




reading label /tapemark. 




3. Nonstandard labeled 




* 






/SVC 11 Return to\ 


inpuir 
YES^ 


\N0 


— 


/^ SVC 2 A 
^ $$BOPEN J 


IProblem Prograrrw 


? 


^ 



SVC 2 \ 
$$BOMT05 J 
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Chart CU. Sequential Access DASD Cpen, Input Biles 



A 



$$BOSDn 



1. Read DLBL extent record. 

2. Read V0L1 label to ensure proper pack is mounted. 

3. Read Format 4 label to get VTOC limits. 

4. System file other than 
than SYSLINK opened? 



<;>^ 



YES 

5. Put extent'info, 
from DIB into 
DTF table. 

6. More files to 
open^ 
YES 



On 



7. More extents' 

Y YES 

8. End of file? 

NO. 




YES 



► 10. Next extent on 
new volume? 
NO 



9. Need to process 
user trailer 
labels. 

NO 




O 



(SVC 11 return to\ 
problem prograny 



1 1 Need to process 
user trailer 
labels? 

— ^ 

12. Need to dequeue 
old volume 
extents? 



iZM 



NO 



$$B0SDI2 



I.Read Format 1 label 
and compare it 
against DLBL 
record. 

2. Determine that 
extent limits 
are valid. 

3. Post extent 
limits in DTF. 



$$B0SDI3 



1. Process user 
trailer labels. 



User header labels 
to be processed? 



>^N0 

Extent to be 
file protected? 



o^ 



NO 

Another file 
to open? 



J ycc 



SVC2 A 

$$BOPEN J 



(SVC11 return to\ 
problem program^ 



$$BODQUE 



1. Dequeue file 
protected extents 



$$BOFLPT 



1. Provide file 
protection for 
extents. 
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Chart 06. Sequential Access BASE Open, Output Files (2 cf 2) 



1 




$$B0SD02 



1. Read and verify volume label 
and Format 4 label. 

2. Save VTOC limits. 

3. VTOC overlap? 
YES 



n 



4. SYSLINK open? 
YES 



-► 6. Issue message 
4441 A. 

i 



JNO 



5. Label clearing 
required? 



YES 



$$B0SD08 



1. Delete 

duplicate labels. 



$$B0SD03 



1. Check extent 
overlap of 
existing files. 

2. Format 1 label 
created? 

NO 



o 



YES 



$$B0SD04 



1. Write Format 
1 label. 



$$B0S009 



1. Put extent 
info. In DTF 

2. User labels? 
YES 



$$B0SD05 



1. Insert extent 
into label. Build 
Format 3 label 
if required. 



<> 

[NO 



File protect? 
I y YES 



$$BOFLPT 



1. File protect 
extents. 



(SVC2 \ 

$$BOPEN J 



More files 
to open? 
YES 



NO 



/^VCll return toA 
\Droblem program J 



^ 



$$B0SD06 



1. Create user 
header labels. 

2. File protect? 
YES 



equeue ol 



NO 
3. Dequeue old 
extents? j^q 




1. Dequeue file 
protected 
extents. 
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Chart 08. Diskette Cpeiir General Flew 



c 



Entry from 
$$BOPEN 



) 



$$835400 



Determine 

name of transient 

to call 




YES 



Read and check 
DLBL and 
EXTENT images 



Reread first 
extent record 
and save address 



Input 



$$635401 



Indicate 
DIB^O 



Output 



$$835400 
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Chart 10, Diskette Open, Output Files 



$$B3540 



Check DLBL 
extents 





YES 



^^^^^Extents >>^ 
"^V^ from ^^ 



© 




(SVC 1 1 return ^ 
to problem prog^ 



YES 



(SVC 2 fetch J 
$$BOPEN J 



Q> 




$$B0DI01 



Read/verify 

volume 

label 



Handle 
volume 
security 



$$B0DI02 

Pass 1 : Deter- 
mine extent 
limits 



Guarantee 
no duplicate 
write protect or 
unexpected file. 



$$B0DI08 



Enter 

console 

extents 







$$B0DI03 



Create and 
write new 
HDR1 label 



$$B0DI07 



Put extent 

information 

inDTF 



Post DIB 
if system 
file from DTP 



■© 




Pass 2: Delete 
overlapped or 
duplicate 
files 
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Chart Ah. $$BOUR01: Cpen Unit Eecord (1 cf 2) 



***** 

*AB * 
♦ F1* 

* * 



****j^-\********* 

* * 

* $$BODR01 * 

* ♦ 
*************** 



**** 






♦ AB =» 

♦ EU 

♦ 4 


*.X 




*♦♦♦ 


X 


CHKSDR 


B1 * 


*. 

*. 


CA 

BEA 

FI 


)EB 

C.E 



* * 
**** 



PAPER 

TAPE 

FILE 



D1 *. 
* 

THO 

I/O 

AREAS 



I/O REG *. 1 , 
SPECIFIID .*..X. 
. IN DTP .* 



*****f'\********** 
*LOAD WORK REGS ♦ 

* WITH I/O AREA * 

* ADDRESS AND * 
♦COHSIANIS OSED * 

* TO ADJOST * 
***************** 



.*. 



**** 

* * . 

* C2 ♦.X. 

* ♦ . 
**** 

SETOPNBT X 

♦*C2******* 

* * 

* TURN ON 

* OPEN BIT 

* IN DTF 

♦ * 
*********** 



X 

***** 
*AB ♦ 
* 32* 



PRINT *. 
CNLI ,*X. 
FILE .* 



**Q2******* 

* MODIFY * 

* USER OP ♦ 
CODE FOR 

* Fill. * 
*SS CCHBAND * 

*********** 



***l^2************ 



,* DOES * 

♦.PRINTER HAVE 
*. DCS .♦ 



* SVC 
FEED SS 
♦ CARD 

**************** 



CHKt)CH 


. ♦. 






B5 * 






♦ 


NC 


* 


C«^!D 


. . .* 




PtlNCH 




*. 


TYPE 



*****-£2********** 



**i^iti*d^*****iti**Hi:tcitc 



E3 *. 

. * * 

I/C 

COMPLETE 



**fj******* 



*********** 



**Q^******* 

* SET OFF * 
GET/POT 

SEQUENCE 
SWITCH IF 

♦ 2';6n * 

*********** 



SETSEQP 

**D5******* 

* SET PUNCH ♦ 

* BIT IF 3525 
. ..♦ PUNCH 

* ASSOCIATED 

* FILE ♦ 
1 *********** 
*** 



E4 *. 

* * 

5203 U 

♦ . .* 

*. .* 
* NO 



**** 

* * 

* C2 * 

* * 
**** 



G1 

.♦ *. 
.♦ CTLCHR 
. SPECIFIED 
*. IN DTP .■ 



*****Q2********** 



***************** 



.* ARE * 
RECORDS 
VARIABLE 
. LENGTH 



*****f^2********** 



***************** 



**** 

»AB ♦ 

* K1 *.X 



**** 

NOVARY X 

*****j-\********** 

* GET PIB TABLE * 

* ADDRESS AND * 

* DEVELOP *. 

* SAVEAREA * 

* ADDRESS * 
***************** 



.X* 



**itc**j2********** 
♦STORE I/O AREA * 
'^ ADDRESS INTO * 

SAVE ARIA * 

LCCATICH 



**(m******* 

* MODIFY ♦ 
USER'S CCB 

FOR 
SETHODE 

* CCW * 
*********** 



**m\******* 

* MODIFY * 

* CCW TO USER * 
♦CHOICE - ALLOW 

♦ OR BLOCK ♦ 
♦DATA CHECK ♦ 

*********** 



♦ SVC 

SET USER 
♦ MODE ♦ 

***************** 



**VS******* 

* RESET * 
PRINT 

CONTROL 
SWITCH IF 

* 2560 ♦ 



it:*Qt^******* 

♦ ALLOW ♦ 
15EAC AND 

FEED IN 
CCW FOR 

♦ 2560 ♦ 

:^********** 



***l{t^*** ********* 

♦ SVC * 
READ 
♦ AND FIFO ♦ 

***************** 



*****JC,********** 

* * * * 

* ♦ SVC 7 ♦ ♦ 
.X+ ♦ WRIT ♦ ♦ 

* *TT REQUIRED* ♦ 

* * ♦ ♦ 
***************** 



**** 








* 








K2 *.X 








♦ 






**** 






GETPUB X 




*****j^2********** 




LOCATE LUB 






ENTRY FOR 






LOGICAL UNIT 






USING SYSIR 






MACRO 




***************** 




X 






***** 






♦AB ♦ 






♦ 1 


i2* 





**f^t^******ilf 



*********** 



♦ C2 ♦ 
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Chart AC, $$BCMRCE: CMR and PCE Cpen Routine (1 cf 2) 



♦♦♦♦ 
* * 

* A5 ♦ 

* * 



♦ ♦ 

* $$BOHBCE ♦ 

* 4t :|i « « 4< *« * 41 * « « * « 



«4<ie<4<4cE1 *«**♦*««*« 



3)c]tc««**:(i«4'«4<««**4t4< 



♦♦A3******* 



TTTiST 15 
COLOHNS 
. BLANK 



**4<4i)|c4<«*)|<^^ 



**** 
♦AD * 
* A1 



» SET * 

DELIMITEB 

ECIHIEF 



^•■^^■♦♦♦♦♦♦♦^ 



SETOMH 

* SIT FIEST * 
♦NOMBIE fNOMBI) * 

. ..X* TO -t AND * 

* SWITCH TO 2 * 



««)«>4<4< «♦♦♦♦♦♦♦♦♦♦« 



* SET FIRST * 
*NDWBER (MDMB1) * 

* TO ANE * 

* SWITCH TO 1 * 

* * 
4 *4t^^ ♦♦♦♦♦♦ ♦♦♦♦«♦ 



CHKFORM 

♦SET DP OPEN* 

* CCE TO BEAD * 

♦ FORMAT CARDS 

* SET FIRST * 
*CAED SNITCH* 

♦*♦♦ 

♦ ♦ 

♦ F1 ♦.X. 

♦ ♦ 
♦♦♦♦ 

X 

* SVC ♦ 
READ 

♦ ONLY * 



*♦♦♦ 

♦AD ♦ 
♦ F3 ♦.X 



♦**♦ 
CHRCARD X 

♦♦C3******* 

♦ ♦ 

♦ SET DIGIT 

♦ CCONTEB 

♦ TO ZERO 

♦ ♦ 
^^■ti^i^t' ****** 

♦ ♦♦♦ 

♦ * 

♦ D3 ♦.X. 

♦ ♦ 

♦ ♦♦♦ 
CCLPOINT 

♦♦D3+****** 



* G5 * 

* ♦ 
♦«♦♦ 



ADD 1 

TO COLDHN 

POINTER 



♦ DELIHITER ♦ 
POINTING TO 



♦ DELIMITER * 

POINTING TO 

*.END COMMA.* 

*. •) • .* 



**j)H*t****** 

* ♦ 
TORN OFF 

OMR/BCE 
SNITCH 

♦ ♦ 



♦ *♦♦ 

♦ ♦ 

♦ G5* 

♦ ♦ 

♦ ♦♦♦ 



COLUMN 


*. 


YES 


72 BLANK 


* 


*. .. . 


♦ . .♦ 






♦ . .* 




X 


♦ NO 




♦♦♦♦♦ 
♦AD ♦ 

♦ 1i^* 

♦ * 

♦ 


X 




LASTCARD 



4<4tcc^4>«4i4>4>*4c 

* ♦ 
SET COLDHN 
PCINTEB TO 

15 

* * 

*ili******it:1f1f 



DIGIT ♦. YES 
CCONTEB .♦... 
IS ZERO .♦ 



il^:^l■^^*i^**i|,t'* 

*HOVE LAST 2* 

♦ CHARS. PROM ♦ 

* SATfE AREA TC 

♦EOEFEB CCIS. * 

♦ U AND 15 * 

*i^******jtiil,* 



.♦ DELIMITER ♦. YES 

♦. CHAR IN .♦ 

♦. COLUMN .♦ 



CMR/5CE 

SWITCH 

OFF 



.X.. 

X 

♦♦♦♦ 

♦ ♦ 

♦ E3 * 

♦ ♦ 
♦ ♦♦♦ 



G1 *. 

.♦ ♦ 

I/O 

COMPLETE 



**i)iif*Q2*** ******* 



«««««4««*«««:{<«j(i4'4> 



*. .* X 


♦ . .* 


* NO ♦♦*♦♦ 


* NO 


♦AD ♦ 




* A1* 




♦ * 




♦ 




X OELFND 


X 


.*. 


.♦. 


G3 ♦. 


GU *. 


♦ . 


.♦ ♦ 


BLANK ♦. YES 


.♦ DIGIT 


COLUMN .* 


*. COUNTER IS 


.♦ 


*. ZEBC 


. . * . 


*. .* 


*, .* X 


*. .* 


* NO **** 


* NO 


♦ ♦ 




♦ B4 ♦ 








♦ *♦♦ 




? 





.* FIRST *. 


NO 




*. CARD .* 






*. . * 






♦ , .♦ 






*. .* 




X 


♦ YES 


* 


«<*** 






♦ 


RS 






♦ 








**♦* 


FIRSTCD X 






♦*J1*****«* 






♦ * 






* RESET * 






* FIRST CARD * 






* SHI1 


PCH * 







»>ie4c*4c«««^^](< 



OPERATION *. 
FIELD .« 
. CORRECT .* 



**f[H******* 

* SAVE LAST ♦ 

TWO 

CHARACTERS 

FOR NEXT 

* CARD * 



♦ ♦♦♦ 

♦ ♦ 

♦ G5 ♦.X 



♦ ♦♦♦ 
ER^HSG X 

4c4i««^G5*^^******* 

* INITIALIZE TO * 

* PRINT MESSAGE * 

* meST AND ♦ 

* ELANK CUT * 

* FILENAME ♦ 

4c ^'♦♦^♦♦♦♦♦♦♦♦♦♦♦^ 



«4>4«H5^*^****** 

* S^C 2 * 

* FETCH ♦ 

* IS^BOMSGI * 

itiiHHtit^********* 



♦ *j3***#4i* + 



«4<4c4i4'4>«^^^^ 



DIGIT 

COUNTER 

GT 2 



***JH************ 

* SVC ♦ 
FEED 
* STACK SS * 

:lfitt#t'************* 



KU 

.♦ 

COM PL 



4i«^^4>K5*^^ ♦***♦** 



if**************** 



♦ G5 * 

* ♦ 
♦ ♦♦♦ 



♦ **♦ 

♦ * 

♦ D3 * 

♦ ♦ 

♦ *♦* 
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Chart AE. CDMOD: CNTBL Macro 



* CD«CD * 

* CNTRL HAC^O ♦ 

* ♦ 



*B2 
COnCD N&CBO 
PARABETER 
OPTICS - EBCISION 
DOES NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



INPOT .♦ *. CMBNn 

*. TYPEFL'? = .* 

♦. *B2 .* 



NO .* 1ltl»2 OB 
...*. 2596 
♦ . +62 



Hi********** 



^^iln^4*l^********** 



* *X ♦. COHPLETE 



I/O 
PLET 



1Htt*t^it'************ 



^Kt********* 



* ♦ 

* STORE CONTROL ♦ 

* CODE IN DTE * 
♦CCNTRCt CCMHAND* 

* * 



* STORE CCNTROL * 

* CODE IN DT? * 
♦CONTROL COHHAND* 

* * 



1442 OR 
2596 

*B2 



* TORN ON * 
♦ EJECT BIT * 

* IN CCW * 
♦COMMAND CODE * 

* ♦ 



1UU2 OR 

2596 

*12 



4******1f*** 



* STORE CONTROL ♦ 

* CODE IN tTF * 
♦CONTROL CCMHANE+ 

* * 



♦ • 

♦ HOVE CONTROL ♦ 

♦ CODE INTO CCW ♦ 

♦ COMMAND CODE ♦ 

♦ * 



41 ||>*G2^^ ♦♦♦♦♦♦♦♦♦♦ 

♦ S7C '> ♦ 
CONTROL 
♦ CPSRATICN ♦ 



**1ii^^V H** ******* 

* RETURN TO ♦ 

♦ PROBLEM ♦ 

• PROGRAM ♦ 

it:************** 



*****ll']********** 

* * * * 

* * SVC 7 ♦ ♦ 

* ♦ HAIT ♦ ♦X 



NO .♦ CCNTBOL ♦. 
...♦.I/O COMPLETE .♦ 



***************** 



****J2********* 

♦ RETURN TO ♦ 

♦ IBOBLEH ♦ 

♦ PROGRAM ♦ 
*************** 
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Chart AG. CEMCE: GET Macrc (2 cf 3) 



♦♦*♦♦ 

♦IF ♦ 

* B2* 

* ♦ 



1442 
♦A3 



.♦ READ ♦. MO 
♦.CCHHAHD CODE .♦... 
*. (X«C2») .♦ 



♦ STOBE ecu IN * 

♦ BYTES 60-67 ♦ 

♦ OP THE DTP ♦ 

♦ TABLE * 

♦ ♦ 



♦SET CCl COHHAND+ 

♦ CODE TO X«09» ♦ 
♦FOB PONCH.IEED,^ 

♦ STACKEB ♦ 

♦ SELECT ♦ 
***************** 



scv 

♦ EXECOIE ♦ 
CHANNEL 
♦ PHOGRAH ♦ 



4i*4>««Fl*4>***4»K**4t 



«>|i««4>4i««4>*4>«4i«4<4>4i 



*4t4t4i*G !♦♦♦♦♦♦♦♦♦♦ 



**4t *4i 4<4'4<4")'4< *4i4<* * « 



♦ * 

♦ HOVE ADDRESS ♦ 

♦ OP I0AREA1 ♦ 

♦ TO CCW ♦ 

♦ * 



♦ HO?E INPOT ♦ 

♦ BLOCKSIZE AND ♦ 

♦ CCHHAHD CODE ♦ 

♦ TO ecu ♦ 

♦ * 



♦ S7C ♦ 
BEAD 
♦ CARD ♦ 



♦ A2 ♦ 

4c * 



t*H'**]i2********** 



SVC 7 
lAIT 



***4i«*«)|i)ti4i*4i:|i«4>** 



♦ * 

♦ SAVE ♦ 

♦ REGISTER ♦ 

♦ 1U • 

♦ * 



♦ * 

♦ LOAE ADDRESS ♦ 

♦ OP I0AHEA1 ♦ 

♦ INTO REG. 14 ♦ 

♦ ♦ 



D2 ♦. 
.♦ 1 

EOP (/♦) 



♦ A3 
CDHOD HACEC PARAHETER 
OPTION - DECISION DOES 
NOT APPEAR IN AN 
ASSEHBLY LISTING. 



♦ ♦*♦* 
♦AF * 

* C3 + 

* * 



T0AR?»2 ♦. NO 
= YES .*... 
♦ ft3 .♦ 



* * 

lOi^N OFF 

FIRST TIHE 

SWITCH 

* * 
*********** 



♦C3 
DTFCD HACRC PARAHETER 
OPTION. 



*****-£2********** 

♦ LCAD EOP * 

♦ ICOTINE * 

♦ ADDRESS ♦ 

♦ INTC REG. 14 ♦ 

♦ ♦ 
***************** 



***************** 



NORKA 

SPECIFIED 

♦C3 



*****^2********** 



*****Q^****:t***** 

♦ tClt BEG. 14 ♦ 

♦ MTIB ADDRESS * 

♦ CF OSFR'S * 

♦ FCi? ROUTINE * 

♦ * 
***************** 



1)5 ♦. 

.♦ 2540. ♦. 

. ♦ 2520, 6f 

.3881, CNTRL 

*. YES CR . 

*. jsa .♦ 



► 1442 ♦. 




♦ LCAD ADDRESS ♦ 


♦A3 .♦. 




♦ OP NORFAREA ♦ 

♦ INTO REG. 13 ♦ 


^ .♦ 




♦ . .♦ 




* * 


♦. . ♦ 


X 


***************** 


♦ NO 


**** 

* * 


: 


i 




X 


^**Q2********** 




*****Q'^********** 






* * 


SAVE ♦ 




♦ MOVE CONTENTS ♦ 


REGISTER 13 ♦ 




♦OF lOAREA INTONE 






♦ OBKAHEA ♦ 



***************** 



*****fl2********** 

* * 
♦INSERT ADDRESS ♦ 

♦ OF I0AREA2 ♦ 

♦ INTO ecu ♦ 

* * 
***************** 



*****j2********** 

♦ * 

♦ HOVE ♦ 

♦ BLANKS INTO ♦ 

♦ ICAHEA2 ♦ 

♦ ♦ 
***************** 



*****Y^2********** 



***************** 



*****}i2********** 

♦ * 

♦ RESTCRE ♦ 

♦ REGISTERS ♦ 

♦ 13 AND 14 * 

♦ * 
***************** 



****j2********* 

♦ RETURN ♦ 

♦ TC PBOBLEH * 

♦ PROGIAH ♦ 
*************** 



♦ NC 



T5 ♦. 

.* 3505 ♦. 
* OR 3525 ♦ 

UliD CONTROL 
♦. = YES .* 



■P5 ♦. 
****fH********* . .* CCMH. ♦. 

♦ EXIT TO ♦ X NC .♦CCDE X«C2» *. 

♦ USER'S EOF ♦X ♦OR COLUHN BIN.. 

♦ ROUTINE ♦ ♦. RF»t .* 
iiiiti************* *, ,* 

♦. .♦ 
♦ YES 



**q^******* 

♦SET CCMHAND+ 

♦CCCE TO X'23'+ 

♦ FEED AND 

♦ STACKER ♦ 

♦ SELECT ♦ 

*********** 



***^e,************ 
SVC 
♦ EXECUTE ♦ 
CHANNEL 
* ^TOGFRK ♦ 

***************** 



*****j n********** 



***************** 



J5 ♦. 

.* ♦ 

T/C 

COW^LETE 



***************** 



1I0RKA 


* 


YES 


= YES 






♦ A3 


* 




.* 






♦ . .♦ 




X 


♦ NO 




***** 

♦ AL ♦ 

♦ C4^ 


X 




* * 


4<*««* 




* 


♦AL ♦ 






♦ £?♦ 






* * 







**** 

* * 

♦ K5 ♦.X 

*♦*♦ 



****^^e^********* 

♦ EXIT TC ♦ 

♦ CSER'S EOF * 

♦ ROUTINE ♦ 
*************** 
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Chart AJ. CDMOD: PUT Macro (1 cf ^) 



* * 

* \H * 



♦ CDMOD ♦ 

♦ PDT WACBO ♦ 

♦ * 



B1 * 

2560 

OH 
5U25 



COMBINED *. YES 
FILE ...... 

*J2 .* 



♦♦*♦♦ 
♦AM * 
♦ A1* 



♦ AL ♦ 

♦ A4* 



♦♦A3******* 



)|i*]tt4>*^^^^^^ 



«4t**4<B3 ♦♦♦♦♦«♦♦♦♦ 

♦ HOVE EJECT * 

♦ CCSMAHE CCDE ♦ 

♦ TO ecu * 

♦ IF BIQDIBED ♦ 

♦ ♦ 

**:)<♦♦«♦♦♦♦♦♦♦♦♦♦♦ 



*4>^C3**^^******^^ 
SVC 
* EXICOTE * 
CHANNEL 
* PBOGEAM ♦ 



X 

♦♦♦♦♦ 

♦ AL ♦ 

* D1* 



* SAVE CC« ♦ 

* AND EF'^OB * 

* CARD IMAGE * 

* IF REQDIBED ♦ 

4c««tt ♦♦♦♦♦♦♦♦♦♦♦♦♦ 



* LOAD ADDRESS ♦ 

* OF READ FILE * 

* FOR BP OR * 

* PRINT FILE * 

* FOR BPN ♦ 

* * # i, * 111 4. * 1% 4c :). * :t< * :|t ,«. * 



PONCH 

FILE 

OPEN 



^♦^'{♦♦♦♦♦♦^ 

♦ ♦ 

* SET FIRST ♦ 
* TIME SWITCH * 

* IF REQDIBED ♦ 

♦ ♦ 



.*CR »R' EIT ♦. YESX 

. ON IN PDNCH .* 

*. OB READ .* 
*. DTF .* 



4t^4i^^]32********** 



SVC 7 
RAIT 



«*♦*♦♦♦♦♦♦♦♦♦♦♦♦♦ 



«*9|C9|t«CU** ******** 

* LOAD RECORD * 

* LENGTB IN * 

* REGISTER 12 * 

* IF REQDIBED * 

* ♦ 
*«♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



♦*♦♦♦ 
*AK ♦ 
* A1* 



* BESTCBE ♦ 

* COMMAND CODE * 

* TO CC¥ CB * 

* CCfl ADDEESS * 

* TO CCE * 
4i««* ♦♦♦♦♦♦♦ ♦♦♦♦♦♦ 



♦ ♦♦♦ 

♦ ♦ 

* F3 *.X 



* flOBKA 

OB ICABIA2 

*. = YES . 

*. *02 .♦ 



.♦BECTCRM*. 
.* FIXDNB * 
.X*. AND CONTROL 
*. OMITTED .* 



^^^♦♦♦F5^ ♦♦♦♦♦♦♦♦* 

* ♦ 

* SAVE * 
X* I^TQtJIRED * 

* BEGISTEBS * 

* ♦ 

4<4c **♦♦♦♦ ♦♦♦♦♦♦♦♦♦ 



* * 
SET 'P' BIT * 

ON- SET * 
•B' BIT OFF * 

♦ ♦ 
«**♦♦♦♦♦♦♦♦ 



.* ma2, *. N 

*.2520, OR 2596.*. 
*. *J2 .* 



♦ IS FIRST * 

TIME SNITCH 
*. ON .* 



♦♦♦G2************ 

* ISSUE MACBO ♦ 
.X SEQOENCE 

♦ EHRCB * 

^^(♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



****H2* ******** 

* ♦ 

* BETDBN * 

* ♦ 
^.^^♦♦♦♦♦♦♦♦♦♦♦^ 



*J2 
CDMOD MACBO 
PARAMETEB CPTICN - 
DECISION DOES NOT 
APPEAB IN AN 
ASSEMBLY LISTING. 



^■♦♦^'♦G3********** 


itc«*^^GM** ******** 




* ♦ 


* STOBE * 




* SAVE * 


♦ REGISTER ^t^ ♦ 




* BECDIBED * 

* REGISTERS * 


♦ (RETORN *. 

♦ ADDRESS) * 

♦ IF REQUIRED ♦ 
^(♦^♦♦♦♦♦^ ♦♦♦♦♦♦♦♦ 












X 






♦*♦♦* 


*♦♦* 




♦AK ♦ 


♦ AL * 




♦ PU + 


* K2 *.X. 




♦ ♦ 


♦ ♦ .X 




♦ 


♦♦♦♦ X 
ETXXX .*. 

H3 ♦. 






^(^♦♦♦HU^i ♦******♦ 




.♦ ♦. 


♦ * ♦ ♦ 




.♦ I/C ♦. NO 
♦. COMPLETE .♦ 


♦ ♦ SVC 7 ♦ ♦ 




. ..X^ ♦ WAIT ♦ ♦ 





^^stc^c ♦♦♦♦♦♦♦♦♦♦♦♦♦ 



K3 *. 

.♦EREOPT ♦. 

. NO .♦ SPECIFIED 

X...^. AND EBBCE 

*. FOUND . 



:ic4<«4c^K4 ♦♦♦♦♦♦♦♦♦♦ 

♦ ♦ 
♦LOAD REGISTER ^* 

X* WITH lOABlA ♦. 

♦ ADDRESS * 

♦ * 

:tc««4'««^^« ♦♦♦♦♦♦♦♦ 



4c ^•♦♦K5^******** 

* BETU?N TO * 

* T3R0?LEH * 

* EROGBAM * 
4<« **♦♦♦♦♦ ♦♦♦«♦♦ 



♦ ♦♦♦ 

* ♦ 

* A3 * 

* ♦ 

♦ ♦♦♦ 



* F3 ♦ 

♦ ♦ 
♦♦♦♦ 
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Chart AL, 



CCMCDj 



PUT Macrc (3 cf U) 



♦♦♦♦♦ 

♦AK * 
* JU* 



***** 
*AJ * 
* B2* 



A1 *. 

*. 
*. 
3525 .* 

,♦ 
.* 
*. .♦ 
♦ IBS 



.♦EBBOPT *. 

* SPECIFIED 

AMD EBBOB 

*. FOOND . 



*****-Q2********** 

* LOAD * 

* EEGISTEB 1 ♦ 
.X* ilTH lOABEA *. 

* ADDBESS ♦ 

* ♦ 
***************ti* 



****22********* 
* BETTJEN TO * 
. ..X* PBOBtEM * 

X * FB06BAM * 

*************** 



CI ♦. 


*****Q2********** 


,* ♦. 


* SAVE CCfl AND * 


.* PUNCH *. NO 


♦ CABD IMAGE ♦ 


*. EBBOB .* 


. ..X* IN DTF AND * 


*. .* 


* BESTOBE ♦ 


*. .♦ 


♦ BEGISTEB ia ♦ 


*. .* 


***************** 


* YES 




*♦*♦ 




*AJ ♦ 




* Aft *.X. 




* * 




*♦** 




IJCPNXXX X 




*****j^'\*********ilf 




♦ CALCULATE * 




* CCB2 ADDBESS ♦ 




♦ AND STOBE IT * 




* IN CCB * 




* IF BEQDIBID ♦ 

:«■ «:)c « :|t itc :(• « $ « 4< « * « + 4< « 






♦ *** 




♦ ♦ 




♦ El *.X. 




♦ * . 




♦♦*♦ 




X 




***-g'\************ 




* PBINT BETBY * 




MESSAGE 




* UOOOI * 





.* \iORKA *. NO 
♦. = YIS .♦,... 






*. *37 .* 
*. . * 






*. .* 






♦ YES 


**** 

* AG * 

* K3 *.X 

* * 
**** 




^'"^1^111^^*1******** 

* GET I0ABEA2 ♦ 

* ADDBESS AND * 

* HOVE UOBKABEA * 

* INTO I0ABEA2 * 


I.7CMDXT?X X 

***:iH^2'j***il****** 

* MOVE PONCH * 

* COMMAND CODE * 

* AKD I0AB1A2 * 

* ADDBESS ♦ 

* INTO CCW ♦ 


**** 






♦ AG * 

* K3^*.X. 


•x 




**** 






IJCHEXXX X 

^l****QH********** 
* * 


* *****(2^********** 

* * 


* HOVE PONCH * 

* COMMAND CODE *.... 

* INTO CCW * 


* MOVE ODIPDT ♦ 

* EICCKSIZl TO * 
*CC« T3YTE COUNT ♦ 



i):****ifW********** 



iti**************** 



***fte^**** ******** 



i>,***i^1^*^,**lH^***ii,* 



***************** 



*****V;H********** 

* * * * 

* * SVC 7 * ♦ 

* * «AIT * *X 



*****#***Tt******* 



G1 
.* 

I/' 
COHPL 



*****Q2********** 

* * * * 

* * SVC 7 * ♦ 
X* * WAIT * * 



***************** 



****QH********* 

* EXIT TO * 

* USEE'S EOF *X. 

* ROUTINE * 
*************** 



***iHtyti********** 

* * 

* RESTOBE * 

* CBIGINBL CCW ♦ 

* COMMAND CODE * 

* ♦ 
************i^**** 



EOF 

DURING A 

GVT 



*****;j'\ ********** 

* * 

* BESTOBE * 

* ORIGINAL * 

* CCN * 

* * 
***************** 



**** 

♦ * 

♦ El ♦ 

♦ ♦ 

♦♦♦* 



*J2 
CDMOD MACBO 
PABAMETEB CPTICN - 
DECISION DOES NOT 
APPBAB IN AN 
ASSEMBLY LISTING. 



**i^*^t^*i^******* 

* RTTUBN TO * 

* PROBLEM ♦ 

* •EBOGTAK ♦ 
*************** 



^K1 *.^ 

.♦'WOBKA OB **. YES 
*.IOAEEA = YES .* 


* 
. .X 


iti**f^2************ 

EXECUTE * 
CHANNEL 


*. *J2 .♦ 
*. .* 




* 


EBOGEAM * 


*. .* 




*** 


************** 


* NO 








.IJCEXXX 
***** 






.IJCBTXXX 
♦*♦** 


*AK * 

* GH* 

* * 






*AJ * 
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Chart AN. DIFCN: GET Macro 



4Litiitt*]i2** ******* 

* DTPCN * 

* GIT HACBO * 

* * 



IJ2XXXXX X 

iti*ifti*]i2********** 

* SET ecu * 

* CCMHIMD * 

* CODE TO READ ♦ 

* (X'OA») * 



*B3 
DTFCU MACBC 
PABAMETEB 
OPTION - DECISICH 
DOES NOT APPEAB 
IN AN ASSEHEIT 
LISTING. 



BECFOHH 

= UNDEP 

♦B3 



* ♦ 

* D2 ♦.X. 

* * .X 

*♦** 
IJ2PXXXX X 

*itiifji2************ 



ti***iifC2********** 

* * 

* HOVE BLKSIZE ♦ 
.X* TO ecu * 

* BYTE CODNT ♦ 

* * 



4i4<4i*4i4i**4>**4*4>*4<i|< 



12 *. 
.* * 

I/O 
COMPLETE 



*. .* 
* IBS 



*f***-E3*******in** 



^itt*************** 



if*** 

* * 

* y^ * 



UNIT *. 


YES 


EXCEPTION , 


*. . . . 


.♦ 




*. .* 




*. .* 


X 


♦ NO 


**** 




* * 




* D2 * 








**** 










G2 ♦. 




* *. 




BECFOBH * 


YES 


= DNDEP 


♦ 


*B3 .* 





BECFOBH 

= DND^F 

*B3 



.* WOBK *. YES 


YES .* WOBK * 




= YES .*... 


..X...*. = YES 


* 


♦. +83 .* 


♦. *B3 .* 




*. .* 


*. .* 




*. .♦ 


X *. .♦ 




* NO 


**** * HO 

* * 

* FU * 

* * 
*♦** 

I02BXXXX X 




X 


*****j3********** 


****j2********* 


* 


♦ 


BETDBH TO * 


* SDBTBACT CCB 


* 


PBOBLEM * 


♦BESirOAI CCONT 


* 


PBOGBAH * 


♦FBOH ELOCKSIZE 


* 




♦ 


* 



*****QH*********i^ 

* * 

* ST05E * 

* BEGISTERS * 

* 2 AND 3 * 

* * 
****************iif 



*:llf***^n*******1^L** 

* * 

* HOVE CONTENTS * 

* OF I/O AHEA * 

* TO WOBKABEA ♦ 

* * 
**itt************** 



*****Q(^:^**'$****** 

* * 

* STOBE ♦ 

* BEGISTEBS * 

* 2, 3, ANE a * 

* ♦ 



*****V{ij********** 

* CALCDLATE * 

* EIKSITZE AND * 

* fCVE BECOBD ♦ 

* TO iOBKABEA ♦ 

* * 



****i^*****if****** 



*****jH*******iHit,ti 



**************ni** 



****flH********iti 

* HETOBN TC * 

* BEQOESTOB VIA ♦ 

* REGISTER 14 ♦ 
iHti*******ilf****i^ 
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Chart AQ. ETFCN: PUTR Macrc 



* DTPCN * 

* EUTB HACBC ♦ 

* * 



4i4t«««««4e«4>4i«4<4c4>4c* 



* EKICDIE EDT * 

♦ ♦ 

******«« 4 ****** A* 



* * 

* PEEP»E1 ecu * 

* TC EXICDIE * 

* CET ♦ 
« * 



*IJ2X3CXXX AN* 

* * 

* EXECUTE GET * 

* * 



* * 

* HESTCEE * 

* CCl ANB * 

* EEGISTEBS ♦ 

* * 



* BETOBN TO * 

* EBCBLEB * 

* PEOGBAH * 
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Chart EB, MRMCD: GET, READ, and CHECK Macros (2 cf 2) 



*♦♦♦♦ 

♦EA * 
* H5* 



CCB 
♦.DEQOEDED .* 



UDENDIS .♦. 



.UNEECOVEHABLE.*, 
♦,I/0 EBROR.* 



* * 

* D3 * 



*. INTERVENTION 
♦.REQUIRED .* 



* DUAL *. IBS 
ADDRESSING .*,.. 
*, *A4 .* 



YES .♦ DISENGAGE *. 

...*. BIT ON IN . 

* . CCB . * 



READ 

SUITCH ON 

. IN DTF . 



♦♦B2******* 

♦ TORN CN * 
* WAIT SWITCH 

* IN DTP AND 
♦SET WAIT BIT 

* IN BDFfER * 



* EOST * 
AKD RESET 

APPROPRIATE 

BITS 

* * 



MR MOD MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



;ti*4<**#3|.«i|<4i*i|i4c4'**4t 



X 

♦ **♦♦ 
*EA ♦ 

♦ G5* 



DISENGAGE 

BIT ON IN 

DTF 



.IJUT0E 


.*. 






G1 ♦. 






* * 


.YES 


.* 


ONIT 


X...* 


■* 


EXCEPTION 
*. .* 


X 




*. .* 


***** 




* NO 


*BA * 






* C5* 






♦ ♦ 




X 


* 




♦*** 

* * 

* G4 * 

* * 
*♦*♦ 



* POST * 

* AND RESET 
.X* APPROPRIATE 

* BITS 

* * 

*:|c :»******** 



4i*4c*:|eQ2********** 

* ♦ 

* CLEAR ♦ 

* DCCTJWENT *. 

* EDEFER * 

* ♦ 
4c******4<********* 



*♦** 

* * 

* D3 * 



.* DATA *. 
. CHECK OR 
♦.DISENGAGE.* 



:(i«4<**E3:»4******** 

♦ MOVE MESSAGE * 

♦ CODE 33 ♦ 

♦ (flMB2I) * 

♦ TC MESSAGE ♦ 

♦ BYTE IN DTF * 

****** ********^cHiilf 



****J^I^*** ****** 

* MRMOE * 
♦UPDATE AECRESS ♦ 

♦ SnEROtJTINI * 
*************** 



ijoinct; 

*****};^c^*** it ****** 
*ADL ^r3TV LENGIH* 
♦TO aCDR OF LAST* 

* BY'IT' O-P LAST * 

* ED^T^F LCAtEE * 

* m SOtJTJT^visoF * 
********** 3t ****** 



*****Q^********** 

* INITIALIZE TC * 
*L0AC FIRST EDFF* 

* IN EOC EDFFEP * 

* AREA NEXT ♦ 

* it: REQUlIiFD ♦ 
***************** 



****D5 ********* 

* * 

* FET13FN * 

* ♦ 
*************** 



***** 
*BA * 
* E3* 



*****Q2********** 

* POST ONBECCV. * 

* I/C ERBCR * 
. * jrHMEII). IN * 

* BUFFER ERECE * 

* INFORMATION * 
***************** 



GU *.X 



**** 
IJDFETCH X 

*****QH********** 

* INITIALIZE * 

* TO FETCH * 

* MESSAGE * 

* WHITER * 

* "5$BHMR20 * 
***************** 



****H4 ********* 

* SVC 2 * 

* FETCH * 

* -^tBilHRaO * 
*************** 
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Chart ED. MFMCD: DISEN and WAITF Macros 



*ift*ji^ ********* 

* HBHOD * 

* DISEH HACBO * 

* * 
if************if* 



♦♦**A2********* 

* MRHOD ♦ 

* RAITF HACBO » 

* * 



♦ TOBN OB * 
*T1SER DISENGAGE 

♦ BIT IH DTE ♦ 

4c * 

**********iH 



«SAVB WAIT 



LISl POIHTEB * 




AHD BE61STEBS ♦ 




5 AND 6 * 




* 


♦ ♦»♦ 


***********iti**i^ 


* * 




• C3 ♦ 




* * 


• 


xl 


X 




.*. 


.laOBBTBT X 


C2 *. 


*****C3*<»*«*4'**** 


.♦ HORE *. 


* LCAE BEG 1«l * 


♦ THAN ONE *. YES 


* NITH STARTING * 


.?l!ll"?ii,'.. 


* ADDRESS or * 


♦ NAIT LIST * 



*********** 



****Ji\******1f*^ 
« RETURN TO * 

* PROBLEM * 

* PROG RAH * 
*************** 



*«***«4>****44**** 



m****Ji2********** 

* * 

* GET ADDBESS ♦ 

* ON NEXT * 
♦DOCUMENT BUPPER* 

* * 



E2 ♦. 

.*EUPPEE *. 

♦ READY lOB ♦. 

PROCESSING . 



*****f^ ********** 



SVC 7 
WAIT 



***************** 



F2 *. 

.* * 

I/O 

COMPLETE 



* YES 
X.... 



* BESTOBE ♦ 

* REGISTERS ♦ 

* 5 AND 6 ♦ 

* * 
iHH************1f** 



*:t**fl2********* 

* RETURN TO ♦ 

* PEOBLEH * 

* IBOGBAH * 



IJUAGAIN X 

♦UPDATE PCINTEB * 

♦ TO NEXT EC IN ♦ 
♦WAIT LIST. GET ♦ 
♦POINTER TO lAST^ 

♦ lOC.EUiriB ♦ 
*4<* «***)» 4 43»****4>* 



E3 ♦. 

.♦ NEXT ♦ 

.♦ DOC EUI 

♦. THE LAST 

♦.DOCUBIHT 

♦, EUI 



.X+ 



. .» 
♦ NO 



*t'***-zn********** 

♦ LOAD RIG ♦ 
NITH STARTING ♦ 

ADDRESS OP * 
» tOCUMINT ♦ 

♦ BUFFER AREA ♦ 
4>**4<**4>^**«***4>*4> 



F3 ♦. 

.♦ DTI ♦. 

.♦ FILE TYPE ♦. 

HEX CB 

♦. (MICE) .♦ 

♦ . . ♦ 

*. .* 

♦ YES 



G3 ♦. 
.♦EUFFIB ♦. 
♦ READY FOB 
PROCESSING 



. * I/C ♦ 
COMPLETE 
FOR THIS 

. DEVICE 



IJUEXIT 
YES .♦ 



H3 *. 

END CF 

lAIT (DC 

LIST 



**if**33********** 

♦ ♦ 

♦ UPDATE TC ♦ 

♦ NEXT ENTRY ♦... 

♦ NAIT LIST ♦ 

♦ * 
a,**************** 



NC 
1 .*. 

G5 ♦. 

♦ ♦. 
END OF 

NAIT (DC) 
LIST 

♦ . .♦ 

♦ . .♦ 
♦ YES 



*****}{^***ii****** 

♦ ♦ SVC m * * 

♦ ♦ENTEF UAIT ♦ ♦ 

♦ ♦ STATE * * 

♦ ♦(MULT. N«IT^ ♦ 

♦ ♦ fO^ HICB) ♦ ♦ 



**** 

* ♦ 

♦ C3 ♦ 
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Chart EF. $$BMMR20: NICR Kessage Writer 



* $$EMMR20 * 



♦ RELCCATE CCl * 

♦ ADDBESS IN ♦ 

♦ CCB * 

♦ * 



* BELOCATE ♦ 

* HISSAGE ♦ 

* ADDBESSES IN * 

* HESSAGE * 

* CCW'S ♦ 
^t*t>** ************ 



****^i'Q2********** 

* LOAE BEGISTEH * 

* WITH ADDBESS * 

* OP HESSAGE * 

* TABLE * 

* * 

**:t:**iH*******t,*^ 



*****'22********** 

* DETEBHINE * 

* MESSAGE ♦ 

* NOHEEB PBOB * 

* DTE TABLE * 

* ♦ 



itii^iii*ifj2********** 

* * 

* BESET HESSAGE * 

* BYTE IN DTF * 

* TO HEX »00« * 

* * 



*i***itiQ2********** 

* MOVE HESSAGE * 

* STATEHENT ♦ 

* TO OUTPUT * 

* A'^EA ♦ 

* ♦ 
***************(** 



*****H2********** 
*IHSEBT SYMBOLIC* 

* FILENAME ♦ 

* FBCR DTF INTO ♦ 

* MESSAGE ♦ 

* ABEA * 



****it'a2********** 

* CONVEBT CSW * 

* TO PEINTABLE * 
*FOBM AND INSEBT* 

* IN HESSAGE * 

* AREA ♦ 
*****ilf*******iit*** 



4i4>*«4iB 3 4 ********* 

* CCNVEBT CCB ♦ 

* FBCH DTP INTO * 
*PBINTABLE FOBM * 
*A11D INSEBT INTO* 

* MESSAGE ABEA * 
imi^i**t********** 



* DUAL 

ADDBESSING 
*. OPTION . 



* CCN7EBI SENSE * 

* INPCEMATICN * 

* IN DTF PCB * 

* DUAL INTO * 
*PBINTAB1E FCBM * 
******^********** 



**if**-g2********** 

* CCNVEBT SCU * 
♦CLASS A«E UNIT * 

* AND INSEBT * 

* MESSAGE * 

* ABEA * 



* INSEBT SEC. * 

* DEVICE UNIT * 

* ADDB FECM * 

* DTF INTO * 

* BEG * 



CUNAD X 

*if*ilf1fQ2********** 

♦CCNVEBT DEVICE * 

* UNIT AEIBESS * 

* AND INSEBT * 

* MESSAGE ABEA * 

* * 
itiif *************** 



m****^3********** 

* CCNVEBT FILE * 

* NUMBEF TC * 

* PBINTAELE * 

* FOBM ♦ 

* * 
«4>* ****** ****4<4i4< 4. 



4,****liH********** 

* CONVERT SENSE * 

* INFORMATION * 

* IN DTF FOB * 

* SINGLE INTO * 
♦PRINTABLE FORM ♦ 
ti**************** 



* CCNVEBT ♦ 

* CHANNEL AND * 

* UNIT NUMBER * 

* AND INSERT * 

* MESSAGE ABEA * 
m**************** 



i^itt***FH********** 

♦ INSERT PRI * 

♦ DEVICE UNIT * 

♦ ADDR FROM * 

♦ DTF INTO * 

♦ REG * 
***************** 



**** 

* * 

* E5 * 



* LCAD REG 1 * 

* WITH ADDBESS * 

* OF TYPCCE * 

* ♦ 
iti**************** 



**i^QS***'* ******** 

* fFINT HESSACI ♦ 
ON SYSLCG 
* (SVC C) * 



* RETURN TC ♦ 

* LIOCS VIA * 

* SVC 11 * 



***c*t*JH*********if 

♦ HOVE »SCU NOT * 

♦ OPERATIONAL* * 
•X* STATEMENT * 

♦ TO OUTPUT * 

♦ AREA * 
*****t*****i^m***** 



* E5 * 

* * 
**** 
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Chart EH, CRMCD: CNTRL Macro (2 cf 2) 



♦B6 ♦ 
• J3* 



♦ RESET ETF 

♦ BBROR 

♦ IHDICITOH 



TEST 
HOPPER 
. EHPTT 
♦ . 



X 

.♦. 
D1 ♦. 



.♦ 
. .♦ 
* RO 



♦ RITDBS TO * 
.X* PROBLEM * 



* « 

* POST HOPPER * 
,X* EBPTI TO * 

♦COREXIT ROUTINE* 

* * 



«*B34>*«*«4t)|i 
♦ TOBR CM ♦ 

HOR-RICO?. 

BIT IS DTF 
^IRD.^JRD IR^ 



♦ EXIT TO tJSER * 

♦ COBBECTICR ♦ 

♦ RCUTIRE ♦ 



♦ BU * 

♦ ♦ 



.* STACKER *. lES 
SELECT ...... 

*. COHHIRD .* 



.* LITE *. TBS 
.X*. STACKER .♦. .. 
♦. SELECT .♦ 



♦ MOH- * 

RECOyERAELE 
♦. ERROR .* 



G1 *. 

.♦ TEST ♦. 

. * EC. BO, * 

. AHD OVERROM 

*. ERRORS .* 



*4ip2*1'***** 

♦ TORN ON ♦ 
LATE SS BIT * 

IH BTP IND. *X. 
AHD IH ♦ 

* CCB * 



f4>4i4c(32*«*4>4>***4> 

♦ EXIT TO USER * 

* C05RECTICR * 



.SSSJiSI. 



*«*4>*4>****4>****** 



4i«4i*«Q34>««**4>*4>«* 

♦ ♦ 
♦EXICDTI BSEF'S ♦ 

♦ CORRICTICN * 

♦ ROOTINl * 
« * 



tminnti^ 2* ********* 

* * 

* RESTCBl * 

* REGISTERS * 

* 13 ARC m * 

* ♦ 



:ti***ittf2********** 

* * 

* RESTORE * 

* CCR AEDRESS ♦ 

* TO CCB ♦ 

* * 



4i**«G3*4>4>4i«***4< 

* RETBRR TO * 

* PRCEIEH * 

* PROGRAM * 



* ORNOD ♦ 

* CNTRL MACRO * 

* RRTRT ROOTING ♦ 



* BU *.X 



♦♦** 
IJMSBXXX X 

*4>B(t4i4<*4i*«* 

♦ SET CCB * 

* BYTE 12 ^0^ 
* StJPERTISOR 

♦ BRP 

* * 



**iltti*CH** ******** 

* * 

* LOAD RIG 1 * 

* WITH ADDR * 

* OP CCB ♦ 
4> « 



4CA4D4************ 

S?C 
* RETRY * 
ERROR 
♦ COMMAND ♦ 



COHPtBTE 



I/O 
IPLB^ 



4>**#«fi;««*4«***** 



*******«*« 4*** **• 



* RESET CCE ♦ 

BYTE 12 

FOR USER 

BRP 

* ♦ 
«***4>**4t**« 



ONIT 

EXCEPTION 

. SNITCH . 



* TBfN CN ♦ 
♦ISIT EXCEPT. 



«**4>Hl*«<f****** 

♦ RBTORH TO ♦ 

* PROBLEM * 



**4t4iJ<(***4<4<*4<** 

♦ RETURN TO * 

♦ AEDRESS IN * 

♦ REGISTER m * 
4i4t4<**4>****4i***4> 



EOF 

.♦* 
*. .♦ 
* YIS 



«****J5***«***4>4>* 



* LCAD REG 15 ♦ 

* WITH AEOF OP * 

* CSER'S EOP ♦ 
*4<*4«***4*4*44>*«* 



***4K5*44«***** 

* EXIT TC ♦ 

* t£E»««S EOF * 

* ROUTINE ♦ 
**44**«4««4**** 
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Chart BK, 



CRMOD : 



GET Macrc, Untlccked Reccrds (2 cf 3) 



♦BJ * 
» C4* 

♦ ♦ 



RECPORH = 

ONDEF OB 

RLR 



♦ COONTEB AMD * 

* BMBY COOHTEB * 



BETRIIE 

10 

TIMES 



♦SET PBOPER BIT ♦ 

♦ IN EBBOB IND. * 
♦BYTE INCBIMENT^ 

♦ COUNTER IFTEB ♦ 

♦ 10 BETRIIS ♦ 



♦EO ♦ 
♦ EH^ 



PHTBXXX .♦. 



HLB ♦. 
.♦ CN NCN- ♦. NO 
. DSEEFINED .♦... 
♦. BECOBD .♦ 



IJHTPXX7 

*4<«^^C2^ **♦♦♦♦♦♦♦ 

♦ ♦ EXIT TO ♦ ♦ 

♦ ♦ AfD ENTBT ♦ ♦ 

♦ ♦ FROM ♦ ♦ 

♦ ♦ COREXIT ♦ ♦ 

♦ ♦ BODTINE ♦ ♦ 



♦ SET UP GTNt ♦ 

♦ CCW ADDBISS, * 

♦ SET CCE, * 

♦ AND SAVE ♦ 

♦ REGISTEB 1 * 



itiilf:iti-£2************ 



4t*4>4***44i*9|<44i«*«* 



* * 

* INCBEMINT ♦ 

* TOTAL LINES ♦ 

* READ CCtlNIEB ♦ 

* * 



X 

***** 
*BL ♦ 
♦ A2* 



*****Ql«*:|i«**««4i* 

♦INCREHENT DATA ♦ 

♦ CHECK CODNTER ♦ 

♦ AND, IF ♦ 

♦ REQUIRED, ♦ 

♦ RETRT COUNTER ♦ 

*:*«]»*****4<*4<***** 



X 

***** 
♦BJ ♦ 
♦ C1^ 



IJBTCXXX X 

****«j1**«**««**4c 

♦ SET DATA ♦ 

♦ CHECK BIT ♦ 

♦ CN IN ERBOB ♦ 

♦ INDICATOB ♦ 

♦ BYTE ♦ 
***************** 



IJMTDXXX X 

***«*Kl*4<«««***4i« 

♦ SET KEYBOABD ♦ 

♦ COBB. BIT ON ♦ 

♦ AND INCB. ♦ 
COUNTER 



T2 

.♦ 

CCHPtETE 



**«**; 3********** 



**4<*«««44 4**«««** 



*****G2^ *♦♦♦♦*♦** 

♦ BESTOBE ♦ 

♦ NOBMAL CCN ♦ 

♦ ADDBESS ♦ 

♦ TO CCB ♦ 

♦ * 

i|i*3|i«4i*3»*4i4i4>4t***** 



♦ A2 * 

* * 
**** 
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Chart EM. CRMCD: GET Macro, Elccked Records (1 of 2) 



♦♦♦* 
* ♦ 

* A2 * 

* * 



* AU * 

**** 



♦ ORHOD ♦ 

♦ GET HACBO ♦ 

♦ BLOCKEE ♦ 



* COnHTBBS, * 

* SET IJHBAXix * 

* TO HOP ♦ 



*. .♦ 






X 


♦ NO 






♦ ♦♦* 

* * 


; 






♦♦♦♦ 


X 








.♦. 








B2 *. 








.* * 








HO .* FIBST 


* 






..♦. TIHE 




* 





♦ CALCOIATI * 

♦ BECOBD ♦ 

♦ HOHBIR * 
4i * 



* IS THIS *. HC 

EBBOB EEIHG .♦... 
*. BBTRIED .* 

*. ,♦ 



* 12 * 



.♦ FIRST ♦. 


MO . 


♦. TIHE .♦ 


..X. 


*. .♦ 




♦ . .♦ 




*. .♦ 


X 


♦ YIS 


**** 


* 


* i 




* H2 




* 


\ 


♦*♦♦ 


*«D1**4.*«** 




* SET * 




* IJHBAXXX * 




♦ TO ERAHCH ♦ 




♦^IF BEQOIBIE^* 




*********** 




♦♦*♦ I 




* * . 




♦ El *.X. 




♦ ♦ . 




**** 




JBEXXX _X^__^^^ 





**Q2******* 

* * 
BESET 

FIBST TIME 
SRITCH 

* « 
*********** 



D2 *. 

.* * 

I/O 

CCHPLBTE 



*****Yj2*******'*'** 



***************** 



*****2^ ********** 

* GET lOARIA * 

* ADDRESS * 

* BOTE ecu ♦ 

* CHAIN ADDRESS * 
***************** 



IJHBFXXX 

**f1******* 

♦SET PROPER * 
♦EX INSTROCT. 
♦ LENGTH SET 
* IJBBJXXX 
* TO NOP ♦ 
*********** 



IJHBIXXX X 

*****Q^********** 

* BLANK lOABlA ♦ 

* BOHP lOAREA * 

* PTR. AND * 

* DICREHENT * 
♦BLKSIZE BI 255 



*****-g^2********** 

♦ ZERO ERROR * 

♦ AND BECCHD ♦ 

♦ COONTER SAVE * 

♦ END-OF-ARIA * 

♦ ADDRESS ♦ 
***************** 



**** 
*BN * 
* D2 



*.X 



♦*♦♦ 



I************ 



BLKSIZE 

lis 



**J'\******* 

* * 
SET 

IJHBJXXX 
TO ERAHCH 

* >K 
*********** 



***f;^'\************ 

* SVC ♦ 

GET 
♦ RECORD * 

***************** 



**** X 

IJHBDXXX .*. 

F2 *. 
.* CHAN. *. 
.* ERRORS 
*.ONIT EXCEPT. 
♦ . OR 
*. CHICK.* 
*. .* 
* NO 



G2 ♦. 
.* *. 
. ♦ 
*. 2 lOARIAS 

**. .♦* 

*. .* 
* HO 
♦♦♦♦ 

* ♦ . 

* H2 ♦.X. 

* * 

♦ *♦* X 
IJHBAXXX .*. 

H2 *. 

.♦SICCHD ♦. 

TIHE 

FOR SAHE 

EECORD . 
♦ . .♦ 



IJHEUXXX .*. 






CH *. 






.* *. 






.* SAHl 


♦ , 


NO 


*. ERROR 




♦ . .. . 


*. 


♦ ' 




♦. . * 






*. .* 




X 


♦ YES 




**** 


**** 




* 


* * . 




* K3 


* DU *.X. 




4< 


* ♦ . 




**** 


♦♦** X 






IJMT8XXX . *. 






Dt» *. 






,* CHAN. *. 






YES .* DATA 


*. 




...*. OR CHAINING . 


* 


*. CHECK , 


* 





****-qS********* 

♦ liHTURN FROM ♦ 

♦ CCT? RlSItlNT ♦ 

♦ T?PROR RODIINI * 
***n*********** 



?5 ♦. 

.♦EBROHS * 
* OR NLR CH 

HCN-DNtlF. 
*. BECORE 



*****Q2********** 

* * 

* SWAP ICABIAS * 
.X* AND CCN CHAIN * 

* ADDRESSES ♦ 
« * 
***************** 



YES ,♦ 



♦ K3 ♦ 

* * 
**** 



NO 



NEED 
ANOTHER 
BECOBD 



IS THIS 

ERROF 
BECORD 



**fH******* 

* * 
SET 

laHscxxx 

TO NOP 

* ♦ 
*********** 



****QH********* 

♦ EXIT TO * 

♦ CORE RESIDENT ♦ 

♦ ERROR HOOTINE ♦ 
*************** 



♦ HU 
THE CORE RESIDENT 
ERROR ROOTINE 
STARTS AT LABEL 
IJHSAXXX ON 
CHART BJ 



NCNR^COVIBY 



X 

***** 

♦ EN ♦ 

♦ Al^ 



*****Q^*** ******* 

♦SET NONRECCVEBY* 
♦ BIT IN IBRCB ♦ 
♦INtlCATCB EYTE ♦ 
AND SET DP 
OTIXIT AD — 
*********** 



****Yl^********* 

♦ ?XIT TO ♦ 

♦ COB^XIT ♦ 

♦ ROUTINE * 
*************** 



♦ El ♦ 

♦ ♦ 
♦♦♦* 



**** 

* * 

♦ K3 ♦ 

4i * 
**** 



*****f^2*** ****'*'** 



***************** 



♦ A2 ♦ 

* * 
**** 



X 

***** 
*EN ♦ 
* E3* 
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Chart EP. CRMCD: RDLINE Macro 



* ORHOD * 

* BDLNE MSCEO * 

* BLOCKED * 



*SAVE REGISIEBS ♦ 
*ANE INTERHDPTBD* 

♦ CCH HOVE ♦ 

♦ ecu TO CNIRL * 

♦ LOC. OF ITF * 



* INSERT PROPER * 

* CCMHAND CCDE * 

* ALTER CCfl ♦ 

* DATA * 

* AEDRESSIS ♦ 



* ZERO LOGICAL ♦ 

* RECORD OF ♦ 

* I/O ARIA * 

* ASD ERROR * 

* IND. BllE ♦ 



♦ ORHOD ♦ 

♦ RDIME HACRO ♦ 

♦ OUBLOCKED * 



♦ SAVE RETDBN * 

♦ ADDRESS * 

♦ TC OSER * 

♦ ♦ 



* IKCBEHINT 

* KIYBOABD 

* COEBECTIOM 

* COOHTEB 

* 



* MODIFY CCi, * 
♦ZEBO I/O ABIA, ♦ 

* SAVE REGISTER * 

* 1, AND SET » 

* DP CCE * 







i 




**«i|t«El*****4<**** 


♦SET 


COHM. CHAIN* 


*BIT 


OFF, STORE 


♦ 


« 


NEW CCfl 


♦ 


♦ 


ILDDRESSES 


♦ 


♦ 


SET CCE 


» 


***♦ 


¥*** 


N******** 






X 


• 



SVC 

* READ * 

BACKWARD 

ON-LINE * 

fEXCPl 



G1 *. 

.♦ * 

I/O 

COHPLETE 



* ♦ ♦ ♦ 

* ♦ SVC 7 * ♦ 



4i)|< «* )|( 4 ildi^t 4> ***«*♦ * 



♦ RETOBN FROM ♦ 

♦ CORE RESIDENT * 

♦ EBBOR ROOTINE * 



X 

1H)iiHfi)L^J4 ********* 

* SET EQDIPHENT ♦ 

* CHECK BIT IN * 
♦EBRCB INDICATOR* 

EITI 



IJHT1XXX X 

4ii|t««*C3********** 

* SET WECNG * 
*LENGTH IB EBROB* 

* INDICATOR ♦ 

* EYTI * 

* IF BECOIEID ♦ 
*«4i*4>*«*|**4t***** 



IJHT2XXX 

)|i4i***D3********** 

* SET DATA * 
*CBECK IN EBBOB * 

* INDICATOR * 
BYTE 



iaHT3XXX X 

itt'***'E3********** 

* RESTCEE * 

* INTEBBDPTED * 

* ecu ADDRESS * 

* PCINTEB * 

* * 



ift!***-e3********** 

* * 

* BESTCBE * 

* BETDEN * 

* REGISTERS * 

* * 



****G3********* 

* RETURN TO * 

* PROELEH * 

* PROGEAH * 



^tintii^.ifYi^********** 

♦ * 

♦ RESTORE * 

* REGISTER 1 ♦ 
*T0 DTP ADDRESS * 

* ♦ 
tL*i***i*i*****t****i** 



***** 
*BJ * 
* J1* 

* * 



**** 

* * 

* B3 * 

* * 
♦**♦ 
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Chart BR, CRMOD: 



RESCN Macro 



♦♦♦♦ 

♦ »2 ♦ 

♦ ♦ 

♦ ♦♦♦ 

Ix.. 



♦ OBHOD ♦ 

* BESCN HACBO * 



IJHB5XZZ X 

«Sk7E BBGISIIBS * 
*AHS CCl ADDBESS* 

♦ ABB POT BEB * 

♦ CCB ADBBESS « 

♦ IN CCB * 



♦POT BEAD BACK- ♦ 

* iABD COHHAND * 

* IN CCB AND * 

* SET COHHAND * 

* CHAINING GPP ♦ 
IHHHHiittittiHHHf ******* 



*****-Q-\*********itl 

* * 

* BEDOCB ♦ 

♦ COOHT BI 15 ♦ 

♦ IP BBQOiaiD ♦ 

***************** 



**1'\******* 
* SET * 

* IJHB3XXX 
♦ TO HOP 

* IP BEQUIBED 



IJHBZXZX X 

*****f %********** 

* ZEBO EBB OB * 
♦BYTE INDICATOB ♦ 

♦ AND GET * 

♦ lOABEA ♦ 

* ADDBESS * 

**ilL************** 



*****Q-\********** 

* GET BEDTJCED ♦ 

* CCDHT AND SET ♦ 

* POIHTEB TO * 

* STABT OP * 

* lOABEA ♦ 
***************** 



t****^^********** 

♦ ZEBO OUT * 

♦ lOABEA * 

♦ ABB SET DP ♦ 

♦ HEPEBEHCE * 

♦ TO NEB CCB ♦ 
***************** 



***j'\************ 



****iH************ 



*, 



ii,*ii,**j^3*********tt 



SVC 7 

BAIT 



**********i^****** 



*, ,* 
* IBS 



.IHTEBTEBTICN*. YES 
. BEQBIBED .*.... 



*****C2********** 

* EAl TO * 

♦ IJHSEXXX ♦ 

X* AHD PCINT ♦ 
^ ^jj, ^ ^ 



IJHB9ZXX X 

♦♦D2******* 

♦ POST DATA ♦ 

♦CHECK IN CCB ♦ 

♦AND EBBOB INEIC* 

♦ IN DTP * 

*IP BEQUIBED* 



**22******* 

♦POST EQUIP.* 

*CHECK TO CCB * 

* AND EBBOB * 

*INDIC. TO DTP* 



IJHBLXXX X 

««f 2******* 
* SET * 

* EBBOB 

* IHtlCATOB 

* IN DTP 
♦IP BEQOIBID* 

*iH***i***** 



IJHB1XXX .♦. 

G2 ♦. 
.♦ ANY ♦. 
YES .♦ EBBOB S ♦ 
...... AND BETBIES 

♦ . .♦ 



***iti*j2********** 
♦BESET BEGISIEB ♦ 

♦ ABD HOVE ♦ 

* X'eC COHHAND ♦ 

♦ CODE TO CCB ♦ 

* * 
if****t *********** 



*****fi2****'****** 

* * 

* SET ♦ 
.♦ IJHB3XXX TO ♦ 

♦ BBAHCH ALWAYS ♦ 

♦ ♦ 
***iH*******i)i***** 



IJHBtlXXX 

*****fl2********** 

♦ BESTCBE ♦ 

♦ BEGISTEBS ♦ 
...X^ AND CCB ♦ 

♦ ADDBESS ♦ 

♦ IN CCB ♦ 
****************ilf 



****;j3********* 

♦ BETUBN TO ♦ 

♦ PBOBtlH ♦ 

♦ PBOGBAH ♦ 
*iti************* 
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Chart ET- 



CRMOD : 



WAIIF Macro (2 cf 3) 



***** 

♦ BS ♦ 

♦ J3* 

♦ * 


IJHBGXXX .*.^ 

.♦ * * 
.* ANY 
....X*. CHECKS OB 


*. NO 
...... 

* 




**** 

* * 

* A3 * 

* * 
**** 

•?* 


►*♦ 
!■** 


***** 
*BS * 

* 


X 

.*. 
A1 ♦, 

♦ , 
HOPPEB ♦. NO 
EMPTY .* 


: : iiiirm 

* CHAINS 

* EXICDTED 

* COONTEE 
************** 


♦GET ABBRISS Of * 
♦INTERRDPIED CCS* 


. * 
.♦ 

*. .♦ 


*. EEBOES 
♦ . . ♦ 
*. .* 


*AND SOBTRACT 8 ♦ 
* * 
***************** 



**3-1******* 
*SET BRANCH * 

* IMSTROCTION 
AT IJHOAXXX 

* TO A NO-OP 

♦ * 

*********** 



NO .* SHOULD * 
...♦.HOPPER EMPTY 
♦.BE POSTED. ♦ 



*4c***I)1**:|c4c****** 

♦ SET ERROR ♦ 

♦ INDICATOR TO ♦ 

♦ HOPPER EMPTY ♦ 

♦ X«02' IN DTE ♦ 

♦ BYTE 80 ♦ 
***************** 



♦ **♦ 
♦BS ♦ 

♦ F2 ^.X 



*♦♦* 
IJHTFXXX X 

**£•]******* 

* SET ♦ 

♦ INSTROCTION 
♦ AT IJHSCXXX 

♦ TO A 

♦ BRANCH ♦ 
*********** 



**pl******* 
* SET ♦ 

♦ INSTRUCTION ♦ 
AT IJMDTXXX 

♦ TO A NO-OP ♦ 
♦IF REQDIHED+ 

*****¥***** 



*****Q1 ********** 

♦ * 

♦ SAVE CSfl ♦ 

♦ STATUS BITS ♦ 

♦ IF REQUIRED ♦ 

4<** ************** 



IJMOSXXX X 

*****{) 1 *******:(> 4i* 

♦ ♦ BALR TO ♦ ♦ 

♦ ♦USER ERROR ♦ ♦ 

♦ ♦COBBECTICN ♦ ♦ 
^ ^ ROUTINE ♦ ♦ 



♦ LOAD CCS ♦ 

* ADDRESS TO ♦ 

♦ REGISTER 13 ♦ 

* * 
***************** 



IJMUAXXX X 

**{(1******* 

♦ RESET ♦ 
♦HOPPER EMPTY 
♦ NO-OP SWITCH 
♦ TO A BRANCH 



*****E2^^^*^^^^^^ 

♦ SET ERROR ♦ 

♦ ISDICATOE ♦ 

♦ X'20» IN DTE ♦ 

♦ EYTE 80 ♦ 

♦ * 
***************** 



****B3********* 

♦ RETURN TO ♦ 

♦ PROBLEM ♦ 

♦ PBCGEAK ♦ 

*************** 



.♦OPCODE ♦. 
.♦ READ ♦. YES 
. BACKWARD OB ...... 

♦. FORWARD .♦ 



*****G2*^*^^^^^^^ 
♦IJMSEXXX BD+ 
♦_*_*-♦_***-*_*_♦ 

♦ BAL TO ♦ 

♦ RETRY * 

♦ ♦ 
***************** 



IJMUTXXX 

**D3**^***^ 
♦ INCREMENT ♦ 

♦ CCW ADDBESS 
♦ BY 8 

♦ IF REQUIEID 

*********** 



IJHUDXXX 

**£3******* 

♦SET SWITCH ♦ 

♦ AT IJHUTXXX ♦ 
♦ TO A BRANCH ♦ 

♦ IF EECDIBID ♦ 
* * 

*********** 



lanovxxx x 

*****P3********** 

♦ GET NEW CCW ♦ 

♦ ADDRESS FROM ♦ 

♦ TIC CCW ♦ 

♦ IF EECUIBED ♦ 

♦ * 
***************** 



* LOAD ADDBESS ♦ 

* CF ACTUAL ♦ 

* CCE ♦ 

* * 
***************** 



*«*{]3************ 
SVC 
* EXECUTE ♦ 
CHANNEL 
♦ 5BCGBAH ♦ 

***************** 



IJHRXXXX X 

*****C4** ******** 

♦ SET CCW ♦ 

♦ ADDRESS IN ♦ 

♦ CCB AND LOAD ♦ 

♦ CCB ADIRESS ♦ 

♦ TO BEG. 1 ♦ 
***************** 



***D4^^ ♦♦♦♦♦♦♦♦♦♦ 
SVC 
♦ EXECUTE ♦ 
CHANNEL 
♦ PROGRAM ♦ 

***************** 



J3 
.* 

I 
CCHI 

' *. 



.* 
♦. . ♦ 
♦ YES 
**** 

* * . 

♦ K3 ♦.X. 

* * 
***♦ 

X 

*****{^3* :»******** 

* * 

♦ RESTCEE AND ♦ 

♦ RESET EFOEEB ♦ 

♦ IWDICATOBS ♦ 

* * 
***************** 



IJMCLXXX 

*****^5 ********** 

♦ GET INPUT ♦ 

♦ ABEA ADDBESS ♦ 
. ..X^ »ND CCDKT ♦ 

♦ AND DECBEMENT ♦ 

♦ CCUNT BY 1 ♦ 
***************** 



*****(; 5***4****** 

* * 
♦CALCULATE STABT^ 
♦OF INPUT AtER. ♦ 

* IF BECUIBED ♦ 

* * 
**********4****** 



*****t)5* ********* 

♦ USE COCNT ♦ 

♦ AS LENCTP ♦ 
.♦ TO RESET ♦ 

♦ INPUT ABEA ♦ 

♦ FOB RETRY ♦ 
***************** 



EU ♦. 

. * * 

I/C 

COMPLETE 



**** 

* * 

♦ K3 ♦ 



*****f 5 ********** 



***************** 



*****j4********** 



***************** 



. .X. IJMT8XXX 

X 

***** 

*BS ♦ 

♦ D1* 
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Chart CA. 



CRMCD : 



CNTRL and REAE Wacrcs 



♦CB * 

* K3* 

♦ * 



♦ DBMOD * 

♦ CNTRL MACRO * 

♦ ♦ 



IJHCH X 

* INITIALIZE ♦ 

* EEHOB * 

* INDICATOR ♦ 

* BITE TO ♦ 

* X • FO • * 



♦****ci ♦♦♦♦»*♦*♦♦ 

* SET UP TIMING * 

* HARK COUNT * 

* IN EJECT BYTE ♦ 

* IF REQUIRED ♦ 



♦SET ecu LINGTH * 

* TO REQOIBED * 

* 7AL0E ♦ 

* * 



♦ SET PROPER ♦ 

* VALUES IN ♦ 

♦ ecu AND CCB * 

* ♦ 



^i#^i■p^************ 



«*4i«4<4i9)i:(t4i«4c«««««« 



* ♦ ♦ ♦ 

* * SVC 7 ♦ ♦ 

* * WAIT ♦ * 

* *IP REQUIRED* * 

* ♦ ♦ * 



* RESET CCB * 

* TO WAIT FOR ♦ 

* CHANNEL END * 

* * 



* GET ERROR * 

* INDICATOR ♦. 

* BYTE ADDRESS * 

* * 



.*BARK CHECK *. YES 
*.AND EQUIPMENT.*..,. 
*. CHECK . ♦ 



* GET ADDRESS ♦ 
X* OF EOF *. 

* ECOTINE * 

* * 



♦ * 

* SET ERROR * 
.X*INDICATOB BYTE 

* TO X»F«»« * 



««C3******* 

♦ ♦ 

* SET ERROR * 

. X*INDICATCR BYTE *..X 

* TO X'F2» * 

* * 



i|<9|i**A()**«**4i**4i 

* EXIT TO * 
.X* USER'S EOF * 

♦ ROUTINE * 



* NO 

i 

. *. 

D2 *. 
.♦ *. 

*. YES 
INCOMPLETE ...... 


IJMEI 

♦*D3*»***** 

* SET ERROR * 
. . . .X*INDICATOB EYTE ♦ 


*♦»♦ 
* 
* G3 

*♦♦♦ 


, SCAN .♦ 


* TO X'F3« ♦ 





E2 *. 
.* *. 
* 
HARK CHECK 



««««Q2********* 

* RETURN TO * 

* PROBLEM * 

* PROGRAM ♦ 



**4<]|i«*4<*)|<** 



* * 

* SET ERROR ♦ 
.X*INDICATC1 EYTE *. 

♦ TO X»F1» * 

* * 



* * 

* SET ERROR * 
.X*INDICATOR EYTE 

* TO X»F9« ♦ 

♦ ♦ 

*♦♦♦ 

* ♦ 

* G3 *.X. 



**♦♦ 
IJME7 X 

* GET ADDRESS ♦ 

* OF COEEXIT * 

* ROUTINE * 

* IF REQUIRED * 



****H3*'»******* 

* EXIT TO * 
♦USER'S CCREXIT * 

* BCDTINE * 



♦GET ADDRESS OF ♦ 
.X^COREXIT ROUTINE^ 

* IP REQUIRED ♦ 

♦ * 



* * EXECUTE * ♦ 

* * USER'S * * 

* * COREXIT ♦ * 

* * ROUTINE * ♦ 

* *IF REQUIRED* * 



* RETURN TO ♦ 

* PROBLEM ♦ 

* PROGRAM ♦ 



♦ D^MOD ♦ 

♦ 15IAD MACBC ♦ 

♦ * 



♦ SET EBBOB ♦ 
♦TN15ICAT0R BYTE 

♦ 10 X'FC ♦ 
* * 



4i**«*C5^** 4 ***♦♦♦ 

♦ ♦ 

♦ MCVE TFIELD ♦ 

♦ AttRESS INTO ♦ 

♦ SCAN CC« ♦ 

♦ ♦ 



* * 

* PUT SCAN * 

* CCW ADDRESS * 

* INTO CCB ♦ 

* * 
*)t<4i««4>** **«*«*« 4141 



«4i«i^53|.«««*44t4*i|i«« 



41*41**4*41*41* 44i«««4i 



****i);5**44***** 

* RETURN TO * 

* PROBLEM * 

* PROGRAM * 
*************** 
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Chart CC. $$BOCR01: Open Cptical Reader 



♦ ♦ 

♦ $$BOOB01 ♦ 



.♦ 


DTF FILI 


♦ . 


YES 




TYPE = 




♦ . . . • 


« 


X»09« 


♦ ' 






*. .♦ 








♦ . .* 




X 




♦ HO 




* K1 * 
»♦♦♦ 




X 








.♦. 








CI ♦. 








.♦ * 






.♦ 


DTP PILE 


'♦. 


NO 




. 'l?S,r 




* 


* 


.♦ 





SETUPRO X 

* HOVE BLKSIZE ♦ 

* OB 256 TO ♦ 

* COOHT IH * 

* CONTBOL ecu ♦ 



♦ SIOBE lOARIAS ♦ 

♦ OB I01BI»2 ♦ 

♦ &DDRESS IN * 

♦ COHTBOL CCl ♦ 

♦ IP BEQDIBIC ♦ 



♦ * 

♦ ZEBO BEQOIBED * 

♦ BYTES OP ♦ 

♦ lOABEA * 

♦ * 



* SVC 
BEAD 
* KEYBOABD ♦ 



♦ * ♦ * 

♦ ♦ SVC 7 * ♦ 

♦ * WAIT ♦ ♦ 

♦ *IP BEQOIBED* * 

♦ ♦ ♦ ♦ 



.*. 

Jl *. 

.♦ ONIT ♦. 

EXCEPTION 

BIT ON IN 

COB 



♦♦*♦ 

* ♦ 

* K1 *.X. 

♦ * . 
**♦♦ 

EXIT X 

* TOEN ON * 

* PIBST TIME 

♦ SWITCH AND 

* OPEN 



.♦ DTP PILE *. YES 
X*. TYPE = .*.... 
♦. X»OC» ,* 



•«««£2********* 

* SVC 50 * 

* CANCEL ♦ 

* * 



* ♦ SVC U ♦ * 
X* * LCAC PB ♦ ♦ 

* * PBCH DISK * ♦ 

* * * * 



D3 ♦. 

.* *. 

27<PB<233 



.* FB ♦ 
*. GVEBPILL FB 
*. ABIA IN ,♦ 
♦. DTP .» 



«*«*4ip34t**«***4i«4< 



*. 



NO 



♦ G2 * 


* PLACE FE 


• 


xl 


♦*62******* 

SEl SNITCH * 

PCE NEXT ♦ 

TIHE ♦ 


* DIVICI END 



♦**♦ 
. * * 
,.X* G2 * 

♦ ♦ 

♦ * 

♦ SET DP EBBOB ♦ 
.X* HESSAGI ♦ 

♦ FOR CANCEL ♦ 

♦ ♦ 



* SVC 2 * 

* FETCH * 

* $$B0!1SG1 * 



«i|i4«*4*4.*«* 



i^m*************** 



* SVC ♦ 

EXCP 
♦ NBITE PB ♦ 



* * * * 

* * SVC 7 * ♦ 

* ♦ NAIT ♦ » 

* *IF BECOIBFD* * 

* * * * 



* BFSET CCE TO ♦ 

* liAIT FOB ♦ 

♦ CHANNEL FND * 

♦ * 



BNY 

^BBO'^S ON 

. tF TC . 

♦.3886 .* 



* HOVE FB * 

* NAME TC ♦ 

* CCBB^NT FB * 

* N»HE IN DTP * 

* * 



♦ ZF50 PCINTFB * 

♦ AT END CF ♦ 

♦ FB ATim * 

♦ IN DTP * 

♦ ♦ 



4* 44q5*:»* 44*4(4 1» 

♦ SVC 2 * 

♦ FETCH * 

♦ «1ECP1N ♦ 

444*449l<*«4**4t4* 



♦ ♦* 



|i«4>**)|t«* 



4i4i**K2***'l'***** 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $$BOPEN * 
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Chart CE, PRMCD: PRTCV Macro 



4141*41 

4< 4< 

* AU ♦ 



♦***]|2****»**** 

♦ PBBOD ♦ 

♦ PBTCV HUCIO * 
4i 4> 

4i4t4i*«********** 



♦ A3 
FSNOD HACEO 
PABAHETEB 
OPTION - riCISION 
DOBS SOT APPEAB 
IN AN ASSIHEtY 
LISTING. 



CTLCBB 
= ASA 

*A3. 



* STC 50 * 

* CANCEL «X. 

« * 

• 4i*4i*******4>«*4> 



.P38 
NO . 



EBINTOV 

= YES 
♦A3 

♦ . . * 



EBBOPT ♦. YES 
= YES .*. .. 

♦A3 .♦ 



*4|*4>4>D1 •«4>*4>*«4>4i4< 



*3»i»«4>*****«4'4>*4'4t* 



♦ YES 
Ix 



. *. 




.P81 .*. 


B4 *. 




B5 *. 


.♦ DOES *. 




.♦ DCES ♦. 


.♦DTE BYTE 3<)* 


NO 


NO .*CCB EYTE « ♦. 


♦. IND CHAN 12 . 


*....X. 


...♦. 3ND 0N3T .* 


*. BIACHED .* 




♦.EXCEPTION.* 


*. .* 




*. .♦ 


♦ . .* 


X 


♦. , ♦ 


* YES 


4'4'*4 


♦ YES 


4i*4"4> 


4' 


* , **** 


41 * 


* K2 


* . 41 4- 


♦ CH ♦.X. 


4i 


♦ ..X* c^ * 


4< 4t 


4<4<4'4 


* * 


4«4c*4t X 




**■** 


IJDQOXXX .*. 






C4 ♦. 




4<4<4<*4>C 5* ♦♦*♦*♦*♦♦ 


.* *. 




4- * 


.* DSEB ♦ 


YES 


♦ LORD ACDBESS * 


♦. BOOTINE 


♦,.,.,, 


..X* OE USEE'S ♦ 


♦.SPECIEIED,* 




♦ BOOTINE ♦ 


*. . * 




* INTO BEG 15 * 


*. .* 




4<4i4>444t4<4<44 4444<«** 



♦ PDT SKIP TO ♦ 

♦ CHANNEL 1 * 

♦ COMHAND ♦ 

♦ CODE IN CCM * 
4< 4<4<4< 4< * 41 ******* 4> * 41 



4<4>:»4>D54<4<4>*4<4<4'4>* 

♦ T^ETDBN TO * 

♦ asET^'s * 

♦ BOtJTNE * 
41 41 :» 4* * 4> 4* 4 4'4<4t 4< 4< 



.♦ EBBOPT 

= YES 
♦ . ♦AS 



4i4i***E2^^^^^^*^*^ 



♦ EALB TO ♦ 

♦ EBBOE ♦ 

♦ BOUTINE ♦ 

4i4i*4c*******4')|<*4»l>)|> 



4c 41 4tE4^* *♦♦♦♦♦♦♦♦♦ 


E*; ♦. 




.♦ NOBKA * 


♦ SVC ♦ 


.♦ OB 


EXECUTE 


...X*. T0BBEA2 


♦ CHANNEL ♦ 


♦. = YES 


PBOGBAN 


*. *A3 .♦ 







CCNTTJCL *. YES 
= YES .*..X 

♦ A3 .♦ 



.♦ PBINl ♦. 

♦ . .♦ 
♦. .♦ 

♦ YES 


no 

* 

4t 

* 


L 




Ad 




4c4>*4e 


41 4tR2^ ♦♦♦♦♦♦ 







41 4>*4<*G4^^ ♦♦♦♦♦♦♦♦ 



4c4>4i4t4<**4t4' 4<4'4< *4t4<4t 4> 



....X. 

X 

. ♦. 

G5 ♦. 

. * ♦ 

1/0 

COHPLETE 



4i4i**4>**«««4i 



a2 ♦. 

.♦ DOES ♦. 
•CCB INDICATE^. YES 
. CHANNEL 9 ...... 

♦. 5IACHIE .♦ 



4i4>**R2^^^^^^^^^ 

♦ BETDBH TO ♦ 

♦ IBOBLEH ♦ 

♦ PBOGBAM ♦ 
4i4i**«********4>« 



EBBOPT 

= YES 

♦S3 



4> 4- 4> * 4 J5 ♦♦♦<♦♦♦♦♦♦ 
♦IJDSBXXX CD+ 
4c_4'-*-4'-4<-«-*-4'-4' 

♦ BRLB TO ♦ 

♦ EBBOE ♦ 

♦ BODTINE ♦ 
4< 41 41 4> 4 4< 4> * 4> * 4 4' 4>4> 4< >«> * 



****K5+*****^** 

♦ BETDBN TO ♦ 

♦ PBOBLEM ♦ 

♦ PBOGBBP ♦ 
4i4i4<44'44<44444<«44 
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Chart CG. FPMCD: PUT Macrc (2 cf 3) 



***** 

*CF ♦ 
♦ C5* 



.* RECFOBB ♦. SO 
*. VABOHE .*... 
*. *A3 .* 



ilL'M***]^'\ ********** 

* * 

* SOBTEACT H ♦ 

* FBOM I0ABIA1 * 

* ADDRESS ♦ 

* * 
iHti^tt******* ******* 



.P26 
.P55 

* ♦ 

♦ POT PROPEB * 

* ADDBESS IN * 
*DTF BYTES 28-31* 

♦ * 
*ti*************** 



* LOAD RECORD * 

* LENGTH INTO * 

* REGISTER 12 * 

* * 

iti^it::^'************* 



**'tHtiifl2*******'*** 

* PtJI CONTROL * 

* COMMAND CODE * 
*IN REGISTER 12 * 

* LOAD 7ALDE OF * 

* 16 IN REG. 14 * 

**:M************** 



VALID 

ASA 
CODE 



*A3 
PRMOD MACRO 
PARAMETER CP1ICN - 
DECISION DOES NCT- 
APPEAR IN AN 
ASSEMBLY LISTING. 



* * 

* AH * 

* * 
**** 


*♦*♦ 

* * 

* * 
**** 


*AH************ 
SVC 
EXECOTE * 
CHANNEL 
PROGRAM * 


.P36 X 

SVC 
♦ EX^CCIE * 
CMftNNfl 
* PROGRAM * 



** 4>4>4c **4i4i« *«4c4i4t4<'l< 



RECFORH *. NO 
= FIXONE .*.., 
♦ A3 .* 



* ADJUST * 

* RECORD * 

* LENGTH ♦ 

* ♦ 

ilt:ttifittif************ 



* STORE RECORD * 

* LENGTH INTO * 
*CCW BYTE COUNT * 

* * 

**ti**i)L*********** 



**** 

♦ CF ♦ 

* D5 ♦.X 



CTLCHH 

= ASA 

♦ A3 



NO .♦ IS ♦. 

. ..♦. CODE SKIP . 

♦ .IMMEDIATE. ♦ 



*i^li2******* 

* PBl SPACE ♦ 

♦ 1 LINE ♦ 
COMHAND 

♦ CODE ♦ 

♦ IN CCi ♦ 



* * * * 

* ♦ SVC 7 ♦ ♦ 

* ♦ WAIT ♦ ♦X. 

* * * * 

* * * * 



**ltLALQ2********* 

♦ SVC 50 ♦ 
.X^ CANCEL ♦ 

* * 
*iHHHH^4 4******* 



♦ CHECK CHANNEL ♦ 
♦AND LINE COUNT ♦ 

♦ AND BESET ♦X. 

♦ LINE COUNT ♦ 

♦ TO X»C5« ♦ 



.♦. COMPLETE 



.PU2 X 

«4<4>**C '(♦♦♦♦♦♦♦♦♦♦ 
♦IJDSRXXX CD* 
♦_♦_♦-.♦_♦-.♦-.♦_♦_♦ 

* BALR TO * 

* ERROR routine; * 

* IF REQUIRED * 

i^ifiti:***:tttt**itf****** 



2bo0. 
3525. OR 



i^****•g^ ********** 

* FROM RECORD * 

* LENGTH * 

* IP REQUIRED ♦ 


4t«:tc£2^*********** 
SVC 

* EXECUTE * 


* * 
♦ *♦♦ 


^•♦^'♦♦♦♦>»)t<«^4>l<««*>f 




♦ **♦ * 

♦CF ♦ 

* F5^*.X. 


Ix 




♦**♦ 
P24 X 

«**«4>F1 *♦♦♦***♦♦♦ 

.* "8Pi58-iMr : 

♦ TO WORKAREA ♦ 

* IF REQUIRED ♦ 


X 

. ♦. 
F2 ♦. 
.* *. 
.♦ I/O *. NO 

♦. CCHPLETE .* 

*. .* 

*. . * 

*. .* 


*it,*if*f2********** 

* * * * 

* * SVC 7 * * 
...X* * tiAIT * * 

* * * ♦ 



****G3******+++ 

* RETURN TO * 

* PECELEM * 

* PBCGRAM * 
4c * 4c )» 4< * * * * « 4> « * * itc 



4e****E((*4c4ci4(«*4<*)«ci(c 

* * 

* SAVE BYTES 3 * 
♦AND 4 FRCM CCB * 

* IF REQUIRED * 

* * 
4c 4, 4: ^cif # * 4< 4^ 4< 4< ^c 4< >i< 4< >(< 4c 



.P77 X 

4e4c4c4c4<P4**4c4c4<4c4c4c4<4c 

* HOVE PRINT, * 

* NO SPACE * 

* COMMAND COD^ * 

* (X'OIM * 

* INTO CC^ * 
4i 4c 4i 4c 4c * 4< * 4c 4< 4< 4c 4c 4c 4t 4< at< 



♦ GU ♦.X 
4c 4c 

4c4c*4c 
.P30 X 

4c4c4c4c4cG !(♦♦♦♦♦♦♦♦♦♦ 

♦ LOAD I0AREA2 * 

* ADDRESS AND * 

* EXCHANGE * 

* lOAREA ADDR. * 

♦ IP REQUIRED * 
4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



.pm X 

4c 4c 4c3tc^H2*** ******* 

*IJDSRXXX CD* 
4c_4i-4c -4c-4c-4c-4<-*- 4c 

* EALR TO * 

* ERRCE ROUTINE * 

* IF REQUIRED * 

4c4c4c*4c*4i4c*4c«4c:»4c*4c4c 



IJDPYXXX X 

4c4c4c«*J2********** 

* PUT CONTROL * 

* COMMAND CODE * 

* IN CCW AND * 
*IN NCBMAL CODE * 

* IN THE DTP * 
4c4c4c4c*3|<«4c4c4c*4c4c«4c4e4c 



4c4c4c4<^4'«4c4c>l>^4***«4 



.* WCRKA *. 

OR *. YEJ 
tOAR^B2 .*... 



4c4c4c**C5*** ******* 
4c 4c ♦4c 

* * SVC 7 * * 

* * ^AIT, IF * * 

* * REQUTRBE * * 

* 4c ♦4c 

* 4c ♦♦♦♦♦♦♦♦ ♦♦♦♦♦♦♦ 



4c4c«^^l]5^^^4«^^^^^ 

*IJD£RXXX CD* 

4c-. 4-4- ♦_♦-♦-♦_♦-♦ 

* EAIR TC * 

* l?15'R0R ROUTINi * 

* If 5ECUIRED * 
4c4c^^^^^^ !♦♦♦♦♦♦♦♦ 



«4c^^175^^^4^^^^^ 

* RETURN 10 * 

* PRCElEl* * 

* PROGRAM * 

4c^4#^^^4444*^4^ 



4c4c««*T)5 ♦♦♦«♦♦♦♦♦♦ 



.* HORKA 
*. = YES 


*. NO 
.*.... 


♦ 
. . .X* 


SUBTTSACT 1 * 
PTSCM ICABFA * 


*. *A3 
*. . * 
*. .* 

* YES 




* 
♦ 
** 


REDRESS * 

4c^4c«^^^^ ♦♦♦♦♦♦♦ 


P33 

BK5 X 

^♦♦♦♦j()^^ ♦♦♦♦♦♦♦♦ 

* RESTORE * 

* REQUIRED * 

* REGISTERS * 

4c^«**^^^4c4c^^^*^^* 


.P34 I 
.BKU X 

]»4c«4 4J5^4444 4^«^^ 

* RESTORE * 

♦ 4c^^^^^^^^ ♦♦♦*♦♦♦ 


♦ ♦♦♦ 

♦ CF * 

* F3 *.X. 

* * . X. . . , 








P62*+^ 









K2 * 
* 

3525 



4c4c*^K'3^44^^^^*^ 

* RETURN TC * 

* PROELIM * 

* PROGRAM * 
4c^4c^^^^^^^^«#** 



.P45 

4c 4e 4c 4c 4c f^^4c« ♦♦♦♦♦♦♦♦ 

♦INSERT CONTROL * 
♦CODE IN CC« AND* 

* RESET CONTROL * 

* CODE IN DTI' ♦ 

* IP REQUIRED * 

4c 4c«* ♦♦♦♦♦♦♦♦♦♦♦♦♦ 



* A2 * 

♦ ♦ 
*♦** 



♦ G4 ♦ 

* ♦ 
♦ ♦** 
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Chart CJ. PTMOD: GET Macro, No Translation, and GET Macro, Translation, No Shifted 
Code, Device=2671 



* ♦ 

♦ A3 * 

* * 



* * 

* »5 * 

* * 
*♦♦♦ 



* RESET ♦ 
EBBOB 

INDIC&TOBS 
IH DTP 

♦ BYTE 21 ♦ 



♦ TUBH ON * 
* Rlir EBBOB ♦ 

* IMEICftTOE. *X. 
♦BIT 7 OF DTP * 

♦ BYTE 21 * 



X 

.*. 
E2 ♦. 
.*1S CCE *. 
.♦ BESIDOAL *. YES 
.CGOlilT A 2EE0 ...... 

♦. ♦E2 . ♦ 



CI *. 






«*«4i«C 2*** **♦*♦♦♦ 


♦ PIBST * 






♦ HCVE CCB ♦ 


TIME OB 


♦ . 


YES 


♦ BESIDOAL ♦ 


EBROPT = 




♦ 


♦ CODBT TO * 


IGNOBE 


♦ 




♦COW EYTE CCONT ♦ 


*. .♦ 








♦ . .* 






«*4»(>* 4 4*** ****))>* 4< 


♦ HO 






xJ 


, 


X 


• 






«««4< 



* TBAMSLAIE * 
*CCMJLETE BECCBD* 

* IF BEQUIBID ♦ 

* ♦ 



* 1XCHAK6E * 

* ADDEESSES OF * 

* ICABEA1 ♦ 

* AND * 

* ICABEA2 * 



*E1» 

DTFPT HACRO 

PARAHETEB 

OPTION - DECISION 

DOES NOT APFEAB 

IN AN ASSEHELY 

LISTING. 



.♦ I0ABEA2 ♦. YES 




YES .* BEAD *. 




*. YES .*... 

*. ♦B4 .♦ 




...*. EBBCB .* 






♦ . .* 




♦ . .* 




*. .* 




♦. .♦ 




*. .* 




* NO 




♦ NO 




♦♦♦♦ 








* ♦ , 








♦ El *.X. 








♦ ♦ . 








♦♦** 




X 




IJE TLST X 




.♦. 


IJE HLR 


*«*S1*4>*«*«***4>«« 


♦ E2 


E3 *. 




PIBST 


A BESIDUAL COUNT 


.* *. 




♦ SVC * 


OF ZEBC INDICATES 


.* IGNORED *. NO 


.♦ 


BEAD 


THAT A COHPLETE 
RECORD HAS BEEN BEAD. 


*. EQOIPHENT ...... 


. , . . X*. 




♦. CHECK .* 

*. .♦ 

♦ . . ♦ 


*. 






*T. ......... 


: 


♦ YES 




X 


* 




.♦. 




X 




F1 ♦. 


itt1f!tf!iti*-g2********** 


i^itif2******* 




.♦ *. 


* ♦ * ♦ 


* TOEN C» ♦ 




..••cciai *:.??. 


* * SVC 7 * * 


.•^oSSEicJIJi" \ 




X* ♦ WAIT * * 





««4r9|(« **!t(«««]|c4<«l|il((« 



I0AREA2 

= YES 

*E«» 



* NOP * 

* FIRST SVC 6 * 
* IN DTP ♦ 

* TABLE * 

♦ ♦ 



SECCNt 
* SVC ♦ 

♦ PAPER * 
TAPE 



* RESTOBI ♦ 

* RETURN ♦ 

* ADDRESS ♦ 



♦ RETURN TC * 

* PRCEIER * 



*B1T 6 CF DTF * 
* BYTE 21 * 



♦ ♦ 

♦ A5 * 

♦ * 



♦♦G1******* 

* BESTOBE * 

PIBST SVC 

TO X'OA' 
FROM X»07» 



* ULBEBB 

OB EBBOPT 
*. ADDRESS 



4i*4<*H2*** ****** 

* EXIT TO * 

* USEE'S EOF * 

* ECOTIBE ♦ 



^^(♦♦♦Jl********** 

* SUBTBACI * 

* CCB BESIDUAL * 

* COUNT FROM * 

* CCW BYTE * 

* COUNT ♦ 



^^^♦^HS****'^***** 


H4 *. 


* SAVE * 


.* ♦. 


* ADDRESS CF * 


IGNORE ,♦ ♦. 


* I/O AREA * 

* ANt RECORD * 


...*. ERROPT == 


*. . ♦ 


♦ LENGTH * 


♦. .♦ 


«:^««««4*«*4«4*««« 


X ♦. .♦ 




♦♦♦♦ *CMITTED 




* * 




♦ B1 * 




* * 




**** 


4(«4t44<J33|>*4****««« 


X 


* * * * 


***#J4*#******* 


* ♦ EXIT TC * * 


♦ CANCEL 
♦FETCH SSBCNCL 


* ♦USER'S RLE ♦ ♦ 



*♦♦* 

4 * 

♦ El ♦ 

* « 



444* 
4 

4 El 
4 

4444 



♦ ERROR ROUTINE 
4 4 4 9 

jic«:(i««444444444444 



««444K3 4444444444 



RESULT 




♦ 




ZERO 


4 






.♦ 








4. .4 






X 


♦ YES 






44*4 
4 
* A3 


X 






4 








4444 


4 4 








♦ El ♦ 








* 4 








**«4 









««:» 1)144 44444444444 
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Chart CL. FTMCD: GET Macrc , Translation, Shifted Cede, Undefined Records, Eevice=2671 



* PTMOD * 

* GET MACEO * 

* TRANSLATION ♦ 



1)1 * 4c Q 1 « * :|> « * i(< « :(< 4i )(< 4c 4< 

♦ SVC BIAE * 
PAPER TAPE 
* IF HBQDIRED * 

«***)«' 4>>l<**4> 4c 4c*4>4<** 



* CALCULATE NET * 

* BECCIiD LENGTH * 

* AND EXCHANGE * 

* ICABEA * 

* AEERESSES * 

Hc:ti**if ************ 



.* ANY 

RIAL 
*. EE50BS 



C1 *. 
,♦ ♦ 
.* I/O 
*. COHPLETE 



**-[^-\*ti***** 

* RESTORE * 
FIRST SVC 
INSTROCTION 
FROM A NOP 

* X«07» * 

******4t4c4c** 



**itl**Q2********** 



4c4c*«4c4c4c4c4c*4<4c**4c4<* 



.X 








X 


Hc^^'^Oc 


X 










.*. 


.*. 






.*. 




C3 *. 


ca *. 






C5 ♦. 




.♦ *. 


.♦WLREHR *. 






.* *. 




.* WLR *, YES 


.* ADDRESS ♦ 


NO .TGN .* *. 


SKIP 


ERECES .* 


..X*. AND ERROPT 


,♦ 




.♦. TRROPT = 


*. . . . 


*. .* 


♦. SKIP .♦ 






*. . * 




♦. .* 


♦. .* 






*. .* 




*. .* 


*. .* 




X 


*. . * 


X 


♦ NC 


* YES 




♦ *♦* 


* CMTD 


**♦♦ 


4c*4t4> 


*♦** 




♦ ♦ 




♦ ♦ 


♦ 


♦ * 




♦ D3 * 




* El* 


D3 *.X. 


♦ m *.x. 




* * 




♦ * 


* , 


* * 




♦ *♦♦ 




♦ ♦♦♦ 


**** 


**** 










X 


X 










**D3******* 


4c4c4<**D (t *1< 44c4c4<«4c 


t>* 




X 




♦ NOP FIRST * 


* LOAD ADDRESS 






«4c**t)'5«**'»*4c**4 




♦ SVC * 


* OV PRCPEH 






* SVC 6 


* 


INSTBIJCTICN * 


* ERROR 






♦ TETCH 


4< 


♦ IF REQUIRED ♦ 


* ROUTINE 






* «1ECNCL 


4> 


♦ * 


* TF R^gniRED 






4c4c4c*4c4>4<4c4*4'4c*4>4 















X 

.*. 

El *. 



4c4c4c4<12***^***** 

* EXIT TO * 
.X* USER'S EOF ♦ 

* EODTINE ♦ 

*it:if ************ 



.* IS LENGTH * 


♦ 


w 


*. .* 






*. .* 
* YES 
♦*** 




X 

**** 
* 


* * 

* G1 *.X. 

* * 




* B1 

* i 
**** 


**** 






E4CLE2 X 
4c4c*4i*Gl*4<4c4<*4<*4c*4c 
♦ ♦ 




♦SCAN FOR SHIFT 

* AND/OR DELETE 

* CHARACTERS 


4c 
4t 
4c 





:»4c:('44'**«4<4c4c4>«4c4c4i4c 



♦**E 3 *♦♦♦*♦**♦*** 

♦ SVC FE»E ♦ 
PAPER TAPE 
* IF REQUIRED * 

***************** 



4(4c4<4c4cp3*:»4'4c4c4'*4<4'4c 
4c 4< 

* RESTCEE * 

* REQUIEIE * 

* REGISTERS * 

4c ♦ 

4c4c4<4c4<4<4 4 4**4>*4c4c4c4< 



4c4c4<4<G3********* 

* RETDEM TC * 

* PROBLEM * 

* PROGRAM * 
4c 4c 4>4c4c 4> :» 4c* * 4c4c4c 4<4c 



* TRANSLATE * 

* THIS ♦ 

* SEGMENT * 

* * 

44>«44c4>**4>4c4c4<>«c4e4<4>« 



IJE4STSD 

4c 4c 4c 4c 4tH2*** =»****** 

♦TRANSLATE THIS * 

* SEGMENT AND * 
. ..X* MOVE IT TO * 

* INPUT AREA ♦ 

* IF REQUIRED * 
4c4<4<4c4c444c$4':»*4<4<4c4c:» 



4C4C4C4C4CJ2********** 

* SAVE SHIFT * 

* TABLE ADDRESS * 

* AND CALCULATE * 

* REMAINING * 

* RECCED LENGTH * 
4c4<4>«!(<4*«*«***«4c4c4c 



4c 4c4c4c4'E 4 *♦**♦***'•<* 

* EXIT TO ♦ 

* USER'S ♦ 

* ERROR * 
ROUTINE * 



4c4c4c4c4cF44>4c4<4c4c**4c4<* 

* * EXIT TO * ♦ 

* * USER'S ♦ * 

* * ERROR * * 

* * ROUTINE * * 

4c 4c * * 

4c 4< 4c 4c 4c 4c 4c 4c * ^^ * 4< 4> 4< 4c 4> :» 



4c4c4c4c4>G44>*4<*4c*4c4>4<4c 

* * 

* RESTORE * 

* REGISTERS * 

* 1 AND 15 * 

* 4c 
4c4c4c4c 4c4i4c4c4c 4<4c3|c*4c4c4c4> 



♦ HI * 
4< 4t 

4c4c*4' 



4c 4c 4c* 
4c * 

* G1 ♦ 
4c * 

4c 4c 4c 4c 



* A3 * 

♦ * 
4c*4c* 



Charts 249 



Chart CN. FTMOC: GET Macrc, Translation, Shifted Code, Fixed Unblocked Records, 
Eevice=1017 



♦♦♦* 

* * 

♦ ♦ 



♦ PTHOD ♦ 

♦ GET HACBO * 

♦ EBVICE 1017 ♦ 



♦* X 

.*. 

El *. 

.* BYTES ♦. 

REN&INIMG 

FBON 
. LAST 
*. GET ,* 



*. CHARACTBTIS . 
*. POUND .♦ 



.* GHBATES ♦. 
.X*. THAN 

*.BICCKSIZE.* 



* NO 



TES .* EOF 
...♦. SWITCH 
♦ . ON 



BEAC IF 

* ONE I/O * 
ABIA 
* ADDITIONAL * 
READ 



* ♦ ♦ * 

* * iAIT IF ♦ * 

* ♦ BBQOIREE ♦ * 

* * * * 



4> * 

* BE STORE CCS * 

* AND FIBST ♦ 

* BEAD INSTB. * 

* * 



* * 

* SET EOF * 

* SWITCH CN * 

* IF REQOIBED * 

* * 



HI *. 
.* CCB *. 
.* BESIDOAL *. TES 

*. COUNT ZERO .♦ 

♦.OB BBOKEN.* 
♦.TAPE .♦ 



IJE7HVRM X 

♦IJETHCVE CN* 

*-♦-♦-♦-*-♦-*-*-♦ 
♦HOVE REMAINDER ♦ 

♦ TO START OF * 

♦ INPUT AREA ♦ 



*****Q2********** 

♦ * 

♦ GET CUBBBNT ♦ 

♦ INPUT ARIA ♦ 

♦ ADDRESS * 

♦ * 

****** Hi*** Hi****** 

**** 



♦ E2 ♦ 

* * 
***♦ 



EOF 

SWITCH 

ON 



*****33********** 

♦IJE7M0VE CN+ 

♦_♦-.♦_♦_*_*-*_*-.* 

.X^MOVI EICCKSIZE ♦ 

♦ TO START OF ♦ 

♦ INPUT ABES ♦ 
***************** 



**** 

* * 

♦ C3 ♦.X 

* * 
**** 

IJE7END X 

*****^3* ******* 111* 

* * 

♦ NOP FIBST ♦ 

♦ READ IF TWO ♦ 

♦ I/O ABIAS ♦ 

* * 
***************** 

**** 

* * 

♦ D3 ♦ 

* * 
**** 

X 
*****03**** ****** 

* * 

♦ GIVE USER ♦ 

♦ lOBEG/BECSIZE ♦ 

♦ INDICATICN ♦ 

* * 



*****£ 3********** 

♦ ♦ EXIT TC ♦ ♦ 

♦ ♦ USEB ♦ ♦ 

♦ ♦ EBROR ♦ ♦ 

♦ ♦ ROUTINE ♦ ♦ 

♦ * * * 
***************** 



***♦ 

♦ ♦ . 

♦ BI» ♦.X. 

♦ * 
**** 

X 
*****g4* ********* 

♦ TRANSLATE AND ♦ 

♦ HOVE SEGMENT ♦ 

♦ TO LIFT OF * 

♦ I/O ABEA * 

♦ IF REQUIRED * 
********!******** 



IJE7STTR X 

*****C((** ******** 

♦ STORE ♦ 

♦ CURRENT * 

♦ SHIFT TABLE * 

♦ ADDRESS * 

♦ * 
***************** 

**** 



*****Q4********** 

♦ * 

♦ CALCULATE * 

♦ REMAINING ♦ 

♦ RT3C0RD LENGTH ♦ 

♦ * 
***************** 



* C3 ♦ 

* * 
**** 



*****f2^^* ♦♦♦♦♦♦♦ 

* * 

♦ CALCULATE * 
:.X^ BECORD ♦ 

♦ LENGTH ♦ 

* * 
***************** 

**** 



♦ El « 

* * 
**** 



iaE7p25e 

*****(;3********** 

* SCAN 256 ♦ 

* CHAEACTEBS ♦ 
.,.X+ FOB SHIFT ♦ 

* ANE/OH EELETE * 

* CHABACTEBS ♦ 
***************** 



♦ G2 ♦ 

* * 
**** 



****G !!*♦♦♦*♦*** 

♦ PTMCD * 

♦ MOVE ♦ 

♦ SUBROUTINE ♦ 
*************** 



T.1E7EXIT 

*****i^5***4****** 

♦ TRANSLATE ♦ 

♦ ANT} MOVE ♦ 
...X* SEGMENT TO * 

♦ lETST CE * 

♦ I/O AREl * 
*****^*********** 






*** 4*^5*** ******* 

* * 

* CALCULATE * 

* NET RT?CCRE * 

* LENGTH ♦ 

* * 
***************** 



. ♦ LENGTH 
. LESS THAN 
♦.ELCCKSIZE. 



*****];;5*** ******* 

♦ CALCULATE ♦ 

♦ RWMAINEEB * 

♦ SNE * 

♦ EXCHANGE * 



*****75********** 

♦ lODIFY CCW * 

♦ BYTE COUNT ♦ 

♦ ANC I/O AFEA * 

♦ AEiJR^SS EY * 

♦ FEMBINEEB * 
***************** 



***i;5*******4**** 

♦ READ * 
IT REQDIPEE 
* * 

***************** 

X 

**** 

* * 

* C3 * 

* * 

**** 



RECORD ♦. YES 

LENGTH GT .* 

256 .♦ 



*****|]5*** ****** 
* 
* 
.X* 



MCVE 

256 

CHARACTERS 



♦ NO 



**** 

* * 

* B4 ♦ 



****************: 



*****J2*^* *♦♦♦♦♦♦ 



***************** 



IJE7SCCW X 

****«K1 ********** 

♦ RESET EOF ♦ 

♦ SWITCH, ♦ 

♦ RESTORE CCW ♦ 

♦ AND FIRST ♦ 

♦ BEAD IHSTB. ♦ 
***************** 



*****j3 ********** 

* TRANSLATE ♦ 

* AND MCVE ♦ 

* SEGMENT TC ♦ 

* LEFT OF * 

* I/C AREA ♦ 
*****1k*********** 



* an * 

4 * 

**** 



*****jii********** 



***************** 



* RETURN TC ♦ 

* CALLING * 

* ROUTINE ♦ 
*************** 
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Chart CQ. FIMOC: PUT Macro, Nc Shifted Code, Eevice=1018 



PAGI CC 
23/10/73 



* * 

* A3 * 

* ♦ 



♦♦♦*A1********* 

♦ PTHOD * 

♦ POT MAC50 ♦ 

♦ DEVICE 1018 ♦ 
4c4< 4t4c * «*4c4t4< 4<3|e*:)c3|i 



♦ B1 *.X 



♦ ♦♦♦ 

IJE9TLST X 

4i4<4<**B1*'4<*******'<' 

♦ STOBE * 

* SPECIFIED ♦ 

♦ EECOBD * 

* LENGTH * 



.♦TBAHSLATIOS*. 
. BEQDIEED .* 



* D1 *.X. 

♦ * 

♦ *♦♦ X 

.*. 
D1 



19ESTB 

* RESIT BET^^Y ♦ 

* CODNTEB IN * 
X* DT? SWITCH * 

* BYTE * 

* * 



* A« 

* 



* * * * 

* * SVC 2 * ♦ 

* ♦ FETCH ♦ ♦ 

* * i8$BEBETr * ♦ 

* * * * 



LCGICAL *. YES 
EBP .*.... 

FEOCESS .* 



EECOBD 
LENGTH 
GT 256 



:»)|t4<*4<*:«t4c**4<4<4<4<**« 



TWO *. YES 
I/O ABE AS .♦... 



«4<**«G1 ********** 



♦ ♦♦♦ 



♦ *♦* 

IJE91IBT X 

:(c*«H1 ************ 



«4c4>*«c2********** 

* * 

* TBANSLATE * 
X* 256 * 

* CHAHACTEBS * 

* ♦ 



4>:|c4'«*£2* ********* 

* ♦ 

* CCMPOTE * 

* HEW * 

* SEGMENT * 

* * 



* J1 * 

* * 
♦ **♦ 



:(c«4i**B4********** 

* * 

* BESTOBE * 

* CHANNEL * 

* PBOGEAM * 

* * 



* ♦ 

* EXCHANGE * 

* I/O ABEAS * 

* * 

* * 
*if ******* ******** 

♦ *** 

* * 

* DU * 



**** 
IJE9IGN X 

:{c>i(4:**X)4******* 

* 

* GIVE USEB 

* lOBEG 

* INDICATION 
* 



**^2******* 



>(>:»:» 4 4 «:»:» :(.!»:» 



.* 1M0 

.X*. T/0 ?BE?S 



|c4:»4<****4 


K:)<4'4:(c*** 


**** 








* * 


X. . 






* J1 *.X 








♦ ♦ 








**** 








X 






«:(C*4!*J1*4<******«4< 


* * 


* 


* 


* * SVC 7 


* 


♦ 


* * WA] 


CT 


* 


* 



He it:^VS*** ********* 
* * 

WBITE 
* ♦ 

Ij 



♦****G2** ******** 



4t*:4<4i*4<***>t>*«**=|c** 



G3 *. 
. * CCE * 

BESIDDAL 
COUNT 

. ZEBC 



IJEGLCCfl . 


!e. 










H3 *. 










. * * 










* LAST 


* 


YES 


*'. 


CCW OF 
*. CHAIN 
*. .♦ 
*. . * 
* NC 


* 


. * 


*t** 
* 

* A** 






















* 












**** 




X 








***«*j3 ****♦♦♦♦** 






DPEATE 




* 






CHANKEL 




* 






PBOGBAM 




* 






ADD 


RISS 




* 





Hf^ttie************** 

X 

* ♦ 

* A3 * 

* ♦ 



il^■^*ilfi^!^^i^in^■i^i^:l^i^**^,* 



**** 

* * 

* HI * 



SET CFK" 

EBBCB 

SWITCH 

* * 



.* ^SE'^ 

EBBCB 
*. BOOTINE 



**JH********** 

* * 

* * 
V,* * 



:(c:)c*:ic:^:4c:«c:tc*:f:«:(c3i[:«c 



*****}![ 4** ******** 

* * 

* BESTOBE * 

* BEGISTET'S * 

* 1 AND 15 * 

* * 



:^***Qt^*** ****** 

* BETDBN * 

* TO DSEB ♦ 

* * 



* in* 

* * 
**** 



****j'^********* 

* SVC 6 * 

* CJiNCT^L * 

* * 



**** 

* * 

* B1 ♦ 

* * 
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Chart DA. KTMCD: CHECK Macro, Wcrkfile 



* A3 * 



* * 

* \H * 



♦***A1********* 

♦ MTHOD * 

♦ CHICK HACBO * 

♦ HOSKFILIS * 



♦ * 

* B1 *.X. 



**♦♦ X 
IJPWCHEK .*. 

El ♦. 



COMPLETE 

**. .** 

*. .* 
* TBS 



* LOAB ARE * 

* DICBEHENT ♦ 

* BLOCK COUNT ♦ 

* EY ONI * 

* IP REQOIBEO * 



* INCBEHSNT * 

* BLOCK CODNT ♦ 

* EY TWO * 

* AND SAVE IT ♦ 

* IP REQOIBED * 



* 4> 

* GET OSEB * 

* EOF BOUTINE * 

* ADDRESS * 

* * 



PI *. 
.* ONIT *. 
* EXCEPTION 
BIT ON IN 
*. CCB 



:t,H,*it,il,^2*''>'******** 



4i«4««* ************ 



****E2********* 

* EXIT TO DSEB * 

* ERBCB RODTIHE *X. 

* VIA REG, 111 ♦ 
*************4>* 



* EXIT TO USER * 
.X* EOF BOUTIN! ♦ 

* VIA REG. 11» * 

*=»4>4i**ii*j|<9»4<«*** 



* SET ♦ 

*DNRECOVERAELE* 

* I/C IBICB ♦ 

* EIT OFP * 

♦IF EEQDIRIE* 

*4>********* 



4c4i***B3 ********** 

* * 

* GET ADDRESS ♦ 

* CF EBECB * 

* BLOCK * 

* * 
*)|i4>4i************* 



«****c3 ********** 

* GET AEtRESSES * 
*0F BLCCK, ETF, ♦ 

* AND PARAMETER * 

* LIST * 

* IF EECDIBED ♦ 

**«*«4**|*****4>** 



lOFNNBXT X 

«4c***03********** 

*TEST FOR ODTPUT* 

♦ TO SET C.C. * 
♦AND GET PROPER * 

♦ ADDRESS IN ♦ 

♦ REGISTER 1 ♦ 
4>4i* ******** ****** 



YES .♦ IS 
...... CONDITION 

♦. CODE 
♦OOTPDT.^ 



«**«4tF3 ********** 

♦ * * ♦ 

♦ ♦ EXII TC ♦ ♦ 

♦ ♦DSER ERROR ♦ ♦. 

♦ ♦ ROUTINE * ♦ 

♦ ♦ * * 
4i)|i ****** ********* 



4i«***AI| ********** 

♦ * 

♦ LOAD ADDRESS ♦ 

♦ OF ERROR ♦ 

♦ BLOCK * 

♦ * 
4i*«***4> ********** 



**«*4>B()****4i*4<*«* 

♦ * * * 

♦ ♦ EXECUTE ♦ ♦ 

♦ ♦USER ERROR ♦ * 

♦ ♦ ROUTINE ♦ ♦ 

♦ * * * 

)|i4i4<itc4c4i4i*4t ******** 



**4c**C4** ******** 



4(*K(4c4t**** ******** 



4c**Dl)************ 



4<**4i************* 



♦ B1 ♦ 

* ♦ 
**** 



61 ♦, 
.♦ I/O ♦. 

ERRORS ♦. 
OR ERRORS . 
. I6N0BEE .♦ 



♦ RETURN TO ♦ 
.X+ USER VIA ♦ 

* REGISTER 1U ♦ 
4t***********4>4i4< 



****G3********* 

♦ STfC 50 ♦ 

♦ RETRY NOT ♦X. 

♦ VALID ♦ 
*4**««4i«*«*4ii|i«]|c 



.♦RBENIRY^. 
.♦ NODDLE TO ♦ 
.SKIP, IGNORE, 



****Q54i*4«***** 

♦ TtETURN IC ♦ 
,1L* USER VIK ♦ 

♦ REGISTT^R m * 
4<*4«4>4>«4.«4)|>«4i*« 



HI ♦. 
.♦ USER *. 
.♦ ERROR RTM ♦. NO 
♦ADDR. SPECIFIED^... 
♦. IN DTF .* 



4i)|c4i|]2** ********** 



**«** J t********** 

♦ * 

♦ GET ADDRESS ♦ 

♦ OF EBBOB ♦ 

♦ ROUTINE ♦ 

♦ * 
***************** 



K1 ♦. 

.* EBBOR *. 

.* EXTENSION *. NO 

.SPECIFIED IN .♦... 

♦. MODULE .♦ 

♦. *K2 .♦ 



*4>4>4t4e*4***i|i***4>«« 



♦K2 

DTFHT MACRO 
PARAMETER CPTICN - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



4c«4c«4i4<** ********* 



***J 4** ********** 

* SVC SKIP * 
ERROR BLOCK 
* * 

***************** 

X 

**** 

* * 

* B1 ♦ 

* * 
**** 



YES 
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Chart DC. MIMOD: FEOV Macro 



41*41 4>A^*4i*4<***4i« 

* HTHOD ♦ 

* lEOV HRCBO * 

* PIIED ♦ 



IJ 


P PEG X 

*4>Bl4>4>*«4i*4> 

* * 






* SIT PEOY 


* 




* BIT IH 


* 




* DTP ON 


* 




♦ * 












**** 








♦DL ♦ 








♦ K1 *.X 








* ♦ 








«*** 






IJF IE02 X 






1f^1^C^ ******* 






* * 






* TOBH OH 


* 




* 107 smicH 


* 




* IH DTP 


* 




* * 






•^i********* 






***4< 








♦DL * 








♦ J1 *.X 








* * 








♦♦♦♦ 






UP IE01 X 






««4i*4il)^**4i*4i***4i* 




•LOAD ADDRESSES 






* OP DTP TABLE, 






* B-T AHS EMTr 






* AM BETOBN 






* ADDBESS 






«*4>*4c**« 


»***4>***4> 



filf***J^2********* 

♦ NTHOD * 

♦ PECV MACJC * 

♦ VABIAELI * 



TOES CK 

PE07 EIT 

IN DTP 

* * 

*«*4>*4>*4>*4<* 



«**«4i£1 *«**«*«4i** 

* * * * 

* * SVC 2 * ♦ 

* * PETCH * ♦ 

* * TBANSIINT * ♦ 

* 4c 4> 41 
***4i4i«4i*4i4i4i**4<4>*4> 



4i**4i 

♦DB * 
♦ B3 *.X 



4>4<*4i 
lOP ECP7 

4> * 

♦TOBN OPP PSD * 

* OP PILI EIT * 
* IN DTP ♦ 

4> 4t 

«*4««i»**«*4> 

4i4i4>4> 
*DB * 

* G1 *.X 

* * 
4>4>4i4i 

UP ECPF 

4i$4i4i4iD3**4>4i*4<4>4i4i4i 

* GET DTP, * 

* TBAI>SIE»T, * 

* AND BETOBN ♦ 

* ADDBESS * 
4« * 
4>4>«4>**4 4>«***4*4i4>4< 



*4t**4>S34««4t4>*4i»«4i 
41 * 4c 4t 

* * SVC 2 * ♦ 

* * PETCH * * 

* ♦ TBANSIENT * * 
4> 4> * * 
4i4t4i4'4'4>*4>«**4>4>4>*4>4i 



4t4c4c*AU4i4<4>4i4>4>4i*4' 

* HTHCD ♦ 

* PWV HAC^O ♦ 

* ONDi!FIHi!D * 

«*4i4>4<4i4>4>*4>4c4<4<4c4> 



TOBH ON 

PSOV BIT 

IN DTP 

4c 4< 

4c 4> 4c 4c 4c 4c 41 4i 41*4' 



X 

4>4>4c*4c 
♦DO ♦ 
♦ !?«»♦ 



PI ♦. 

.♦ HAS ♦. 

♦ ENTRY 

PBOH MACRO 
♦.EXPANSION, 



4c*4i 4c 4cp2^^* ♦♦♦♦♦♦♦ 
4c * 

♦ SAVE AND ♦ 
%* BESTOBE ♦ 

♦ REGISTERS ♦ 

4c 4< 

4c4c*4c4i4>*4>4c4«*4>4c4c4i* 



4c4c4c4c4c7l)*4c4>4c4c*4c*4c* 
4c * 

♦ SAVE, RPSTC^^ ♦ 

.X+ REGISTERS AND * 

♦SET BLOCK SIZE ♦ 

4c * 

4:4c4c4c4c4>4<4>4>4i4i4c**4i4>4i 



UP EPE 

4c 4c*4c4cG !♦♦♦♦♦♦♦♦♦♦ 
♦SET DEBL0CKER1 ♦ 
♦ANE BEBL0CKEE3 ♦ 

♦ TO ZEBO ♦ 

♦ IP HEQOIRBD ♦ 

4c 4c4c 4c 4c 4c 4> 41 4c 4c 4c 41 4c 4c 4c 4c 4c 



4c4i«4cHl*4c4c4c4>4c4c4c4c 

♦ REIORN TO ♦ 

♦ OSER VIA ♦ 

♦ REGISTER 1U ♦ 
*4i***4>**4>4c*4c4c4c4c 



♦J1 
BTHOD MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



TWO 
I/O ARIAS 
.SPECIPIID. 



ASCII 

SPICIFIED 

♦J 1 



X 

41 4c 4c 4> 4c 
♦DP ♦ 
♦ B5^ 



*4c4>4<4c 

♦DL,+ 
♦ A3+ 



TOBN CFP 

ECV EIT 

IN DTP 

4c 4> 

4i*4>4>**4c4>4c4c4c 



4>4c4i*4cH3*4**^*^4'4c4c 

♦ SET EtCCK ♦ 

♦ SIZE TO ZEBO ♦ 

♦ RESTORE ♦ 

♦ BET05S ♦ 

♦ ADDBESS ♦ 
4>4>*4>**4*4*P»*4**4i« 



♦ . .♦ X 

4c UO ***** 

♦ DO ♦ 

♦ S1^ 
♦ ♦ 

41 
X IJF EX1 



.♦ TWC ♦. NO 
♦. I/O AREAS .♦... 



♦DC ♦ 

♦ A3* 



***** 
♦Dl ♦ 
* C5^ 



***** 
♦ C3^ 
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Chart DE. MTMCD: GET Macrc, Spanned Records Routines 



♦DD ♦ 
* D2* 



♦ ♦ 

* A3 « 
« * 



* * 



.IJPSSQBR I 



NULL 
SEGMENT 



* 4> 
♦TUBN OPP SKIP* 

* DEBLOCKING ♦ 
♦ SNITCH * 

* ♦ 



CI ♦. 
.♦ *. 
* SEOOENCI 
EBBOB 

**. .** 

*. .* 
♦ NO 



)K4<*4i«B 2** ■»**')"•■*** 



*i|i4>*«*44*44 ****** 



i 


*. .♦ 


***** 


* NO 


♦DD ♦ 




* ci»* 




* * 




* 




JP GETB 






X 




4i«B344**«4>4> 




♦INITIALIZE 




* S ANKEC 




* BECOBD 




♦ SN TC IS 




♦ I DTP 




4>***«*4'4t4t4>* 



*A4* 

TORN ON 

SKIP 

DIBLOCKING 

SNITCH 

_P i^IQ 

*4i4i**{ 



,* SEQ. *. 
* IRROR IN 
CONTROL OR 

*. AFTER . 
♦ .RELSE.* 

*, .* 



.X.. 
X 

***** 
♦DD ♦ 
♦ C1^ 

* * 



NO 



***** 
♦DC ♦ 
♦ ^.2* 



.♦ ENTIBl ♦. 
.♦LOGICAL BECCBD.^ 
♦.PBOCISSIE.^ 



CI ♦. 

.♦ENTERED^. 

♦ FBOH ♦, 

CCNTBOL MACBO. 

♦. EXPANSION. ♦ 

*♦. .♦* 

♦ NO 


YES 
♦ . . . . 

* 

♦ A3 
♦ 
*♦** 


.' 



.♦* BEADING *♦ 
♦. BACKHABOS 

•-.bIcSIS..-* 

'♦'no 


TES 
.♦.. . . 

X 

**♦* 








♦ J2 

* 








**** 


i|i*4i*«fl3|t 4c** ****** 

♦ ♦ 

♦ DETEBHINE NO. ♦ 

♦ OP BITES TO ♦ 

♦ EE SHIFTED ♦ 





«*4t«4>*4<*«******** 



*****Q 1«*4>**4c**** 

♦ * 
♦SAVE LENGTH OP ♦ 

♦ NEi SEGMENT ♦ 

♦ IP RIQDIBED ♦ 



D3 ♦. 

.♦ENTEEED^. 

.♦ FBOH ♦. 

♦.CCNTBCL MACBO. 

♦. EXPANSION. ♦ 



IJFSCNTT 

**^3*4**«*« 

♦ RBSTOBE ♦ 

♦ OLD COHHAND 
♦ CODE IN CCN 

♦ IP REQDIBED 

«««4i»*«*»** 



«*«4.«p3«4 44 4>44i*«4' 
♦IJPSCNTV DK^ 
♦-♦-♦-»-»-♦-»-*-* 

♦ SET DIBLCCKEB ♦ 

♦ FOB CHANGE ♦ 

♦ IN DIBECTICN ♦ 



X 

***** 

♦ DP ♦ 

* D5^ 



HI ♦. 
♦ NEN ♦ 
SEGMENT 
LT OLD 
SEGMENT 



***««j1 ********** 

♦ SHIFT EATA ♦ 

♦ IN NOBK ABEA ♦ 
. ♦ AND RESET NEW ♦ 

♦ SEGMENT ♦ 

♦ LENGTH COUNT ♦ 
4**«4>«4>**«4i|i***4i* 



IJPSSHF2 

4i**«4<{]2***4****** 

♦ SHIFT ♦ 

♦ BEMAINING ♦ 
...X^ BITES IN ♦ 

♦ NOBK ABEA ♦ 

♦ * 
*4i*i|>4>4*******«««4i 



♦ J2 ♦.X 



♦♦*♦ 
IJFSMOVS 

4i*4>**J2^ ♦♦♦♦♦♦♦♦♦ 

♦ PBIPABE TO ♦ 

♦ MCVE NEN ♦ 

♦ SEGHENT INTO ♦ 

♦ NOBK ARIA ♦ 

♦ * 
*4**4i 4 44* ******** 



4****K2*^* >»♦♦♦♦♦* 
♦IJPCCHP DW^ 

4.4.4. 4-*-*-*-*>* 

♦ MCVE NEN * 

♦ SEGMENT INTO ♦ 

♦ HCEKABPA * 
44*************** 



**** 

* * 

* A3 ♦ 

* * 

**** 



**G3^^^^^^^ 

♦ TOEN ♦ 

CFF FIRST 

TIME SNITCH 

IN DTP 



♦ TDBN OFF ♦ 
♦CCNTBOL SNITCH 

♦ IN DTP ♦ 
* * 

4*4**4***4* 



*4**J34******** 

♦ REIDBN TC ♦ 

♦ OSEB VIA ♦ 

♦ BEGISTIB 14 ♦ 
44*****4******* 



44** *C4** *♦♦♦♦♦♦♦ 

♦ GET DSER NLR ♦ 
♦ROUTINE ADDRESS^ 

♦ LOAD RICORU ♦ 

♦ LENGTH IN ♦ 

♦ NORK AREA ♦ 
44*************** 



44***DU ********** 
♦GET ERROR BLOCK* 

♦ AND PARAMETER ♦ 

♦ LIST ADtRESS ♦ 

♦ IP REQUIRED * 

44*************** 



*4***S4********** 

♦ STORE * 

♦ PARAMITEE ♦ 

♦ LIST ADDRESS ♦ 

♦ AND RESTORE ♦ 

♦ REGISTERS ♦ 
4**4****4*4444**4 



44**474********** 

♦ ♦ EXECUTE ♦ ♦ 

♦ ♦USER WRONG ♦ ♦ 

♦ ♦ LENGTH ♦ ♦ 

♦ ♦ ERBCR ♦ « 

♦ ♦ ROUTINE ♦ ♦ 
44*************** 



REENTRY 
PROM SKIP 
.OR IGNORE. 



***** 
*DD ♦ 
* R1* 



44**H4***^^^^^^ 

♦ SVC 50 ♦ 

♦ RETBI ♦ 

♦ NOT VALID ♦ 

44************* 
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Chart DG, MTMOD: PUT Macro 



* HTHOD ♦ 

* POT HACBO ♦ 

* VARIABLE ♦ 



B1 *. 

.♦ FILE ♦. 

OPENED OB 

ASSIGNED 

IGN 



♦ ♦ 

♦ SOPPRESS * 
* HLR INDICATOR 
*JCCli BIT 3U) * 



**D1 ♦*♦*♦♦♦ 

* TDBN ON * 

* FIRST TIME * 

*THB0n6H NODOLE 

SWITCH 



El *. 
.♦SPANNED*. 
.* EECOBDS ♦. lES 
*.SCSCIFI1D AND.*.... 



UP PDT1 X 

*)|c**4(A2********** 

* GEl CORBENT * 

* I/O AREA AND * 

* HOBK AREA ♦ 

* ADDRESS AND * 

* BECCBD LINGTH * 



4i*4i4< 4132*** ******* 

* * 

♦CONVERT RECORD * 
*LENGTH OR SHOW * 

* NO ASCII * 

* * 



««*«4.(;2********** 

* OPEITE BLOCK- * 

* SIZE AND * 
*PCINTERS, SAVE * 

* DEELOCKIRS * 

* AND LINK ADDR * 
«*****«it.i|>*44>**)|>«)|< 



*.PBOCBSSED. 



♦♦♦♦* 
*DH * 
* B1* 



IJF PDTN 

* GET ADDRESS * 
*0P CURRENT I/O * 

* AREA AND * 

* WOBK ARIA * 



* * 

* LOAD ADDRESS * 

* OF IJF PDTW * 

* IF REQUIRED * 



i|ii|t**4<E2********** 
« * 

* DPDATI * 

* REMAINDER OF * 

* I/O AREA * 

* * 



***** 
♦DF * 
* D5* 







HI *. 






*ENOOGH 


NO 


.* 


SPACE 


.. .* 




LEFT IN 


I 


■* 


OUTPUT 
*.AREA . 


X 




*. .♦ 


*♦** 




* YE 



* * 

* MOVE RECORD * 

* LENGTH INTO * 

* DEBLCCKEB* * 

* * 
****ti*********t*'** 



***it*^-\*****it,*1f^,A' 
*IJF SCHK DN* 

«> 4>- I)!-.*-. *-«-*-*. * 

* MOVE BYTES * 

* FROM NORKAREA ♦ 

* TO I/O AREA * 



)||*4>«Q2********* 

* MTMOD * 

* PUT RECORD * 

* SUEBOUTINE * 
JtHf^'*' *********** 



**** 
*DJ * 
* C5 



**** 
UP PUTB J 

«««*«I]2********** 

* ♦ 

* GET ELCCKSIZE * 
..X*AND CURRENT I/O* 
. * AREA ADDRESS ♦ 

* ♦ 



J2 *. 

.* ASCII *. 

* SPECIFIED *. NO 

AND LENGTH .*... 

♦. CHECK .* 

*. *G5 .♦ 



« * « « * A 3 4>* 4>4i*4<*4<** 

* * 

* GIT MINIMUM * 

* ELCCKSIZE-1 * 

* IF EECUIFED * 

* * 

******* HikHJt****i^* 



****j^H********* 

* HT10D ♦ 

* POT MACRO * 

* UNDEPISID * 



* MTMOD * 

* fUT MACBC ♦ 

* FIXIE ♦ 



X 


IJF PUT .*. 




XJif tUT .*. 


«*4i4<*63 ********** 


EU *. 






B5 *. 


* MAKE BLOCK ♦ 


.* FILE *. 






.* Fill *. 


* 18 EYTES * 


.* OPENED OR *. 


NO 




.* OPENID OR *. NO 


* AND SET * 


*. ASSIGNED .* 






*. ASSIGNEE .*.... 


* ELOCKSIZE * 


*. IGN .* 






*. IGN .♦ 


* TC 18 * 


*. . * 






♦. .* 


*t,ifnt**i**********if 


*. .* 


X 




*. .* X 


, 


* YES 


♦ ♦♦* 


* YES **** 






♦ 


41 


* * 






♦ J5 


* 


* J5* 






♦ 


* 


♦ ♦ 






♦ ♦*♦ 


♦ *** 


4t4<4<4<4>C3********** 


*)tiC4******* 






X 

4<4<C5******* 


* * 


* * 






* * 


* SAVE AND EDIT * 


* SUPPRESS * 






* SUPPRESS * 


* ELCCKSIZE ♦ 


* NLR INDICATOR * 






* NLR INi^ICATOB * 


* IN CUTPOT * 

* * 


*(CCW BIT 34)^* 






*JCCW EIT 3t») ^* 


1^****i^***1f*1f*:lf*1Hf 








it***itH*****c 



* YES 



9l>)|i***K2********** 



****rti:^*it'** ******* 



IJFRNLCO X 

4i****D3 ********** 

* SET TRANSLATE * 

* TABLE EISPL. * 
*AND GET ADDRESS* 

* OF I/C AEIA * 

* IF EECUIRID * 

*******:ti***iH^*it,1f 



*IJPBTE DV* 

Ic-il'-*-*-*-*-*-*-* 

* TRANSLATE * 

* CUTPDT * 

* IF BiCUIEID * 
*:^,n:i^,i^*i^i^^^i^:^i^i^*:^l* 



iii*f*i^i^-p3********** 
*IJF EX1 DQ* 

* PUT BLOCK * 

* CN TAPE * 

* * 



«4i**«G3********** 

* * 

* GIT AEDRESS * 

* OF CURRENT * 

* I/O ABIA * 

* * 



4c*4>4"t<H3********** 

* UPEATE * 

* CURRENT I/O * 

* ABEA AEEBISS * 

* WITH BICCK ♦ 

* IF BIQUIRED * 
*«**)»* **4 ******** 



* ♦ 

* SET ELCCKSIZE * 

* TO ZERO SAVE * 

* DIBLCCKE5S * 

* * 
4.*4i3|>4*«*4 4 ******* 



* RETURN TO * 

* CALLING ♦ 

* ROUTINE * 



* GIT ADDRESS * 

* OF CURRENT * 

* I/O AREA AND * 

* WORK ARIA * 

* IF REQUIRED * 

itL**************** 



*****-gH*:tt*******iti 

*IJF WORK DW* 
♦-*-*-*-♦-*-*-*-♦ 
*MOVE BYTES TROM* 

* WORK TC I/O * 

* IF REQUIRED * 



*4i***VH********** 

* SET" TRANSLATE * 

* TABLE * 

* DISPLACEMENT * 

* IF REQUIRED * 

4e*4i44i4'*4i*******4<4< 



4e«4t4<)ttG 4** ******** 

*IJFNTR DV* 

4c-4c-4<>*-* -*-«-*-* 

* TRANSLATE * 

* OUTPUT * 

* IF REQUIRED ♦ 
^t******** ******** 



3|c****H4********** 
*IJi' 1X1 DT* 

♦_*-♦-*-*_♦-♦-*-♦ 

* WRITi? OUT * 

* RECORD ♦ 

* ♦ 
***************** 



*ilfW**t'i*** ******* 
*TJF WRK EW* 
4<-*. 4.4- *-*>*-*•* 

* CVI BECOFI TC * 

* OUTPUT ABEA * 

* IT BECUIBED * 
4<*** ****!******** 



4i**«4< 175*** ******* 
*IJT E^L EF* 
♦_♦_♦_ *_ 4- 4- 4- 4 _ « 

* * 
*DI?ICCK RICCRE * 

* * 



X 
***** 

♦ 13f * 

* KH* 



*G5 
MTMOD MACHO 
PSRAMETI? CPTICN - 
DECISION DOES NOT 
APPEAR IK AN 
ASSEMBLY LISTING. 



***** 
*DF * 
* D5* 



**** 

* * 

* 05 * 



****J5********* 

* SVC 50 * 

* CBNCIL JCE * 

* * 

4ti|i*44c4<443»4«44i4i:» 



* A2 * 

* * 
**** 
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Chart DJ. MTMOD: READ and WRITE Kacrcs^ Workfiles, and RELSE and TRUNC Macros 



♦ MTMOD ♦ 

♦ READ MACBO * 

♦ iORKFILIS ♦ 



POST READ 

OPERATION 

IN DTP 

* * 



*IJFIIRDWR DD* 



«*4c«4>4t*4t«**4i*>|i4»|i« 



**D1 ♦♦♦*♦*♦ 
« * 

♦ SET 
REAI COHMAHD 

♦ IN CCi 

♦ * 



* SVC * 
READ 
* RECORD ♦ 



^i Unit *Yy ********* 

* RETORH TO * 

* DSER 7IA * 

* REGISTER lU ♦ 



♦ MTMOD * 

* RELSE MACRO ♦ 



****Ji2********* 

* MTHOD * 

* WRITE MACBO ♦ 

* WCRKFILES * 



POST WHITE 

OPERATION 

IN DTJ 

♦ ♦ 



*IJPSRDWR DN* 

4< * 

* BOILD ecu * 

* * 



♦♦D2******* 

SET NRITI 
CCMHAND 
IN ecu 

♦ * 



f**-S:2************ 

* SVC * 

WRITE 

* RECORD * 

4i « * * 3l»t< 4 * 111 i|> * * * * 4> >•»•• 



*itfi,i^f2********* 

* RETTIRN TO * 

* USER VIA ♦ 

* REGISTER lU * 
i»*4>*4 ********** 



itn'IHtt:tiQ2********* 

* MTMOD * 

* REISE MACBO * 



♦♦♦♦A3********* 

♦ HTMCD ♦ 

* TRONC MACRO * 



****I5*«******* 

♦ MTIOC * 

♦ TBONC »1ACE0 * 

♦ VIFIAEII ♦ 
*************** 



***************** 



BLOCK 
LENGTH EQ 
. 7ERC 

♦ . .♦ 



Tjy i^n .*. 




B") *. 




.* *. 




.* AN^ BTllS *. 


NC 


*. TC PROCESS . 


♦ .. .. 






*. .* 


, 


*. . * 


X 


* IIS 


♦♦♦♦♦ 




♦ DI * 




* E5* 




♦ ♦ 




♦ 


IJI 


EX 3 



X 
.♦. 

D3 ♦. 
.* * 
.♦ I/C 
*. COMPLETE 



**♦**]) 1)** ******** 



***************** 



*****C5* ********* 

♦ ♦ 

♦ LCAD IJf 1X3 * 

♦ IflFESS IN * 

♦ LINK REGISTER ♦ 

♦ ♦ 
***************** 



***** 

♦ tG * 

* H2* 



♦****£ 3********** 

*iap PTI DP* 
*.*.«.*-*_*-*-*.* 

♦ * 

♦ WRITE BLOCK ♦ 

♦ ♦ 
***************** 



F3 

,♦ 

CCHPtETE 



♦♦♦♦♦ 
♦DP * 

* in* 

* * 



*****f 4** ******** 



***************** 



UP REL X 

♦****B1 ********** 

* SET REMAINING ♦ 

* NUMBER OF * 

* BYTES TO BE * 

* PROCESSED ♦ 

* TO ZERC * 
♦***♦*♦*♦♦♦♦***** 



♦♦J1^^^^^^« 
♦ TORN ON * 
♦SKIP CONTROL 
♦ SWITCH 
IN DTP 



****Ki**«****** 

♦ REGISTER m * 
*************** 



UP REL X 

*****j2^*^^^^**^^ 

♦ ♦ 

♦ SET ♦ 

♦ DEBL0CK1R3 ♦ 

♦ TC ZBBO * 

♦ ♦ 
***************** 



♦ SET ♦ 

♦ DEBtOCKERI ♦ 

♦ TO ZERO * 

♦ ♦ 
***************** 



*****j()********* 
* 

♦ S^T 

♦ D1BL0CKER3 

♦ TO ZERO 
♦ 

*******«********! 



****I(3********* 

* EETDEN TC * 

* DSER VIA ♦ 

* REGISTER m * 
*************** 
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Chart DL. 



MTMOD: 



Read/Write Subroutine, Fixed Length Fecords (1 of 2) 







IJF GEC X 






*if***\3*i^**it***** 


4t4>*4>A 1 ***>)■ 4<4<*4<* 




* * 


* MTMOD ♦ 




* GET ANE ♦ 


: ii^%iMii t 




..X* RESTORE NEH * 




. ♦ BLOCK COONT ♦ 


:»:»*«**4«3ti]|i4«:|i4c4< 




♦ ♦ 
**♦♦ 


*♦♦♦ * 




* * 


♦DP * 




* A3 ♦ 


* E5 ♦.X. 


*B2 


* * 


♦ * 


MTMOD HACBC 


♦ ♦** 


♦ ♦♦♦ 


PARAMETEB OPTION - 


X 


UP HRD X 


DECISIOH DOES SOT 


.♦. 


4i«*4>4>B1*«*4«**4e«itt 


APPEAR IN AN 


B3 *. 


*IJFXTRA DK* 


ASSE BLI LISTING. 


.♦ ♦. 


4i-«.4i-*-4>. *-*-*.* 




.♦ ASCII *. ^ 


♦ TBUHSLATI ♦ 




*. SPECIEIIE .* 


* BLOCK * 




♦. ♦E2 .* 


:«{:.jf8Ji5js.,: 




♦ . .* 




*. .* 






♦ NO 


♦**♦ l 




♦ ♦♦♦ 


♦ * . 




*DC ♦ 


♦ ♦ ♦.x. 




♦ J2 ♦.X. 


* * . 




♦ ♦ 


♦**♦ 




♦*♦♦ 



REFERENCES 
TO CLA3; 
DCH2, DND1 



♦♦** 
♦DC 1 
♦ 02 



♦.X, 



IJF H02 X 

SVC 
* PERFORM ♦ 
SPECIFIED 
OPERATION ♦ 

OIRED 

****** 



REFERENCES 
TO DLC1: 
DHH1, ENJI 



IJFFRCT 

*****C3********** 

♦ LCAD ADDRESS ♦ 

♦ OF CURRENT ♦ 

♦ I/O AREA AND ♦ 

♦ CLEAR HIGH ♦ 

♦ ORDER ETTE ♦ 
***************** 



D1 ♦, 

, * * 

I/O 

COMPLETE 



.♦ DNIT *. 

♦.EXCEPTION BIT. 

*.IH CCB CN.+ 



*****!] 2**«***4<*4>* 

* * * * 

♦ ♦ S7C 7 ♦ ♦ 



***************** 



E2 *. 

.♦ DOES ♦. 

.♦ FILE 

.X+. CONTAIN 

♦CHECKPOINT. 

♦.ECDS .* 



♦ YES 



X 

***** 
♦DN ♦ 
♦ B1 + 



*****£ 3 ********** 

♦ ♦ 

♦ CALCULATE ♦ 

♦ I/O AREA ♦ 

♦ ADDRESS ♦ 

♦ * 
***************** 



♦ A3 ♦ 

* * 
*♦** 



.♦ /♦ OR /♦ ♦ 

.ON SISRDR OR 
♦. SYSIPT .♦ 



**g1******* 

* * 
TORN ON 

EOF SWITCH 
IN DTF 

* * 
*********** 



*****Q2^^^ ♦♦♦♦♦♦♦ 



***************** 



♦ EXIT TO ♦ 

♦ DEER EOF ♦ 

♦ 5CUTIHE ♦ 
*************** 



IJFFSTD X 

*****P3 ********** 

♦ STORE I/O ♦ 

♦ AREA ADDRESS ♦ 

♦ AND RESIDUAL ♦ 

♦ COUNT ANE ♦ 

♦ RECORD LENGTH ♦ 
***************** 



SET SRL EIT 

IN CCE 
AS REQUIRED 



*********** 



*****|]3 ********** 

♦ SUBTRACT ♦ 

♦ RECORD LENGTH ♦ 

♦ FBCM RESIDUAL * 
COUNT 



INPUT ♦. 


YES 


FILE 


♦.. . . 


.* 




.♦ 




♦ . .♦ 


X 


♦ NO 






♦DC ♦ 




♦ D1 + 




* * 




* 




IJF FE01 



*****!; 1 ********** 

♦ GET, UPDATE, ♦ 

♦ AND STORE ♦ 

♦ BLOCK COUNT ♦ 

♦ IP REQUIRED ♦ 

***************** 



***************** 



*****!; 3********** 

♦ ♦ 

♦ LOAD NLB * 

♦ ADDRESS ♦. 

♦ IF REQUIRED ♦ 

***************** 



♦ GET I/O ARIA 
.X+ ADDRESS MINUS 

♦ RECORD SIZE 



*****];4********** 

♦ SAVE POINTER ♦ 

♦ TO DEBLCCKER1 ♦ 

♦ AND CALCULATE ♦ 

♦ I/O AREA ♦ 

♦ ADDRESS * 
***************** 



♦*♦* 
IJi'XRCT X 

***4*(^5***4****** 

♦IJFXTRA EK^ 
*_*,*-*_*.*..*-*-* 

♦ TRANSLATE ♦ 

♦ IT REQUIRED ♦ 

♦ * 
***************** 



*****D5*** 4 ****** 

* ♦ 

♦ LOAD ♦ 
♦RESIDURL CCONT ♦ 

♦ 1? REQUIRED ♦ 

* * 
***************** 



*****i»5 ********** 

♦ GET I/O ♦ 

♦ AREA ADDRESS, ♦ 
♦RECCRD LENGTH, ♦. 

♦ AND BLOCK ♦ 

♦ t!TiTiT?ix LiNGTP ♦ 
***************** 



***** 

♦ CM ♦ 

♦ A1^ 



.♦ WRONG 

..X+. LENGTH 

*- RECORD 



♦ TURN OFF 

♦ WRONG LENGTH 

♦ RECORD BIT 

* * 

*********** 



****HU** ******** 
GET I/O AREA ♦ 
ADDRESS ♦ 



***J(»** ********** 
SVC 

♦ PERFORM ♦ 



X 

***** 

♦Dr ♦ 

♦ A1^ 



****{]5********* 

* SVC 50 ♦ 

* CANCEL JOB * 

* * 
*************** 



OPSRATICN ♦ 
IF REQUIRED 
*****!****** 



****K 4 ♦*♦****** 

♦ RETURN TO * 

♦ CALLING ♦ 

♦ ROUTINE ♦ 
*************** 



. IJF FE02 
X 
***** 

*DC ♦ 
♦ C1+ 

* * 
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Chart DN. MTMCD: Bypass Checkpoint Records Routine, Fixed Length Records 



♦DL ♦ 

♦ B2* 



$«4iB1 ******■)'*** 



«***«*«*«4i4i4i*«*4>4i 



♦ SOBTRICl ♦ 

♦ CBICKPOIMT ♦ 

♦ BECOBD ♦ 

♦ LEN6TB * 

♦ IF REQOIBED ♦ 



♦♦♦♦* 

♦ DL * 

♦ h3* 



.tlllBECOTEBABLE.* *X*. 

♦.I/O EBBOB.* 



♦ VIBSICB 2 
CHICKPOIHT 
♦. IICOBE . 



IJPPVBS2 

♦ ♦♦♦*S3«4«*«*^^^4i 

♦ PACK BOHBIB ♦ 

♦ 01 CHICKPCIMT ♦ 
. ..X* BECOBCS KBD *. 

♦ CCBVEBl TO ♦ 

♦ BIHAEY * 
******♦♦♦♦**♦♦♦♦* 



IJFFTBS1 X 

♦♦♦P1 ♦♦♦♦♦♦♦♦♦♦♦♦ 

SVC 
♦ PEBFOBH ♦ 
SPECIIIEE 
♦ OPEBATIOH ♦ 

♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦ 



*4l*«^Ql ♦**♦♦**♦*« 

♦ ♦ ♦ ♦ 

♦ ♦ S?C 7 ♦ ♦ 

♦ * WAIT ♦ ♦ 

♦ ♦IP BEQOIBED* ♦ 

♦ ♦ ♦ ♦ 
♦♦♦♦♦♦♦♦♦♦♦♦♦*♦♦♦ 



HI ♦. 
.♦ ALL ♦. 
.♦CHECKPOINT 



int,f2******* 



* IP BECOIBED * 

♦ ♦ 



♦ *f 5*«««*4i^ 



««******•«* 



««♦*♦«♦♦*** 
SVC 
* PIBPOBH * 
SPECIPIED 
* OPEBATIOH « 



^♦♦♦*f{3^«^4>^^^^^^ 

♦ ♦ ♦ ♦ 

♦ ♦ SVC 7 * ♦ 

♦ * WAIT ♦ ♦ 

♦ ♦!? BEQUIBIB^ ♦ 

♦ ♦ ♦ ♦ 

♦ ♦«♦** ♦«*^««*^4i4>^ 



♦♦Jl^l^^^^^ 

* SET CCB * 

♦ OP CODE TO 
♦ OBIGINAL 

♦ VALOE 

««♦♦*«*♦♦♦« 



YES .*CH!CKPCINT ♦. HO 
...... BECCBDS .*.., 

♦.EYPASSEE .* 

♦ . .♦ 



X 

♦♦♦♦♦ 

♦ DL ♦ 

♦ CI* 
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Chart DQ. MIMOD: Read/Write Sufcrcutine, Variatle Length Records (1 cf 2) 









*)t>4*4 






♦ EC ♦ 






♦ EH* 






♦ * 

4 


#4>««]^1 ********* 


*tL^il,J^2********* 






* MTMOD ♦ 


♦ MTMOD ♦ 






* BEAD/HRITE ♦ 

* SDEBOUTIHE ♦ 


♦ FBCM SKIP ♦ 






♦ ROUTINE ♦ 






4c**4<***4.*:|i*4.4<*4> 


**«*44***4***44. 






♦*** ', 






**** 




♦DC * 






* * 




♦ G4 *.X. 






♦ E3 ♦.X 




* * 






* * 




♦ **♦ X 






***♦ 




IJF EX1 .♦, 


X 


lap CHNG X 


B1 *> 


niiif**Hf22********** 


4c««*«s3*4>**4>^*4<«* 


.♦ FIRST ♦. 


♦ ♦ 


♦ I/C AREAS AND ♦ 

♦ GET BESIDDAL ♦ 


NO .♦ TIME *. 


♦ GET * 


...♦.ENTERED THIS .♦ 


♦ EICCKSIZE ♦ 


♦ . ROOTINI .♦ 


* * 


♦ . .♦ 


♦ » 


♦ CCUNT ♦ 


♦ . .♦ 


iHt,if****i^********* 


*«4**4'«*>»*>»**4'*4>4' 



IJF FT1 

♦ TORN ON ♦ 

♦ FIRST TIME 
♦ SWITCH 

♦ IN DTP 

♦ ♦ 



♦ SVC ♦ 
READ TAPE 
♦ IF HEQOIRED ♦ 



♦ MTMOD ♦ 

♦ GIT BLCCK ♦ 

♦ SUEBOOTINE ♦ 



TWO ♦. 
I/O 
ARPAS .♦ 



♦ SET 


CODNT IN 


♦ 


♦ CCW 


AREA FOR 


♦ 


♦ ON 

* 


I/O AREA 


* 
* 


it,iHli:if***i>'********* 


*♦** 








♦DV ♦ 








♦ H2 '.X 






* * 








**** 








IJF H02 


X 




iHt,:t'l2************ 


* 


SVC 

READ 


* 


* 


11 


VPI 


* 



4i4>*]«i4c;C<a|>***«**«3|c:(<i|c 



it,*itHftiC2* ********* 



♦ ARiA AECRESS 

♦ IF BECDIRED ♦ 

♦ ♦ 

♦ Hi :«■ )|< * :|i 4. 4> « 4 4i « « 111 * * * 



♦ STORE I/C ♦ 

♦ AREA AtERESS ♦ 

♦ AND BLOCK ♦ 

♦ CCDNT, SET ♦ 

♦ EXIT AEDRESS ♦ 



♦ LOAD EXIT * 
♦ROUTINE AEERESS^ 

♦ IF BECDIBID ♦ 

♦ * 



*4<***p1**«4<*«*«*« 



««3|<«)|t*3t>*4>««4c3tl4c«*« 



F2 
.♦ 

COMPLETE 



♦ A5 ♦ 

* * 



♦ r,t1 EICCKSIZE ♦ 

♦ AND CURRENT ♦ 

♦ 1/0 AREA * 
XDDRES- 



)»**4 4g5«4*44 44<44* 

* * 

♦ tOAE EXIT ♦ 
♦ROUTINE AEEBESS^ 

♦ IE Bi'CUIBED ♦ 

* * 



* ♦ 

♦TBRN OiT «LR 
♦ EIT IN ETF 
♦ IF REQUIRED 



♦GET ADDRESS OF ♦ 

♦ LAST EYTE ♦ 

♦ OF BLOCK ♦ 

♦ ♦ 

iilfi^i^lt:***** ******* 



:» 4< DC 4 4 7 15 :» :(. 4 4 :» 4 * « :» 4: 

♦ ♦ 

♦ CALCULATE ♦ 

♦ ELCCKSIZE ♦ 

♦ TF REQUIRED ♦ 

♦ ♦ 

*************:tf*** 



**** 
TJFRNOPR X 

4<iC*«4>F5^^^ ♦♦♦♦♦♦♦ 
SUBTRACT 



****i*iQ2********** 



«4c4>**G3^ ♦♦♦♦♦♦♦♦♦ 





♦ SET COUNT IN 


* 




♦ SAVE ♦ 




♦ ecu FOR TRO 


* 




♦ RESIDUAL ♦ 




♦ I/C AREAS 


* 




♦ CCUNT ♦ 




♦ 


* 




* * 




***itt********t****i^ 




44>***3|<«*4<«4i*«3|>*4<« 










X 










.♦. 




H2* *♦. 






H3 ♦. 




.♦ UNIT ♦. 






.♦ ♦. 




.♦ EXCEPTION ♦ 


TES 


.♦ ANY ♦. 1 




♦. BIT ON IN 


* 




♦. BYTES TO . ♦ 




♦. CCB .♦ 






♦. PROCESS .♦ 




♦ . .♦ 






♦. .♦ 




♦ . .♦ 




X 


♦ . . ♦ 




♦ NO 




♦♦♦♦* 

♦DR ♦ 

♦ B1^ 

* ♦ 

* 


♦ YES 
* 




X 


IJF ER2 






.♦. 






X 




J2 ♦. 






***iti*J2**********: 




.♦ DOES ♦. 






♦ GET ADDRESS ♦ 




. ♦ FILE ♦ 


. YES 


♦ CP TRANSLATE ♦ 




♦ . CONTAIN A 


* 




♦ TABLE AND * 




♦. CHKPNT .♦ 






♦ I/C AREA ♦ 




♦ . BCD .♦ 






♦ IF BEQOIBFD ♦ 
**«4>*««4i« ****** 




♦. .♦ 




X 




♦ NO 




♦♦**♦ 




REFERENCES 


♦*** 




♦DV ♦ 




TO DQK2: 
DCHU, DRB1 


* * 




♦ E1 + 




♦ ♦ ♦.X. 




* * 




DVD2 


* * 




41 






♦♦♦* 


IJF RCK 




UP BCNT X 






X 




*****f^2********** 




**4t**K3********** 




* 


* 




♦IJPRTR DV* 




♦ UPDATE 


♦ 




*_♦-♦_♦-*-.*-*-*-* 




♦ BLOCK 


♦ 




» TRANSLATE ♦ 




♦ CODNT 


* 




♦ INPUT ♦ 




* 


* 




♦ IF BECUIBED * 
41**************** 




***iti******:^***if:ti* 






X 






i 




*♦♦♦ 






**** 




♦ * 






* * 




♦ B3 ♦ 






♦ A5 ♦ 




* ♦ 






* * 




*♦♦♦ 






**** 



ASCII 


♦. YES 


♦ BUFFER OFFSET ♦ 


SPECIFIED 


.♦... . 


♦ LENGTH CM ♦ 


*KH 


* 


♦ ELOCKS E ♦ 


♦ . . ♦ 




♦ TF BECUIBED ♦ 
, 41X1******** ****** 


♦ . .♦ 




♦ NO 












', X* 




IJFREX2 X 








*****(;5**4**44>*** 








* * 








♦ CALCULATE I/C ♦ 

♦ AREA AEtBESS ♦ 














♦ IF REQUIRED ♦ 








«4t*************** 
K* 


* " ' ' 




XIJT EX2 X 


. ♦. 




.IJT» NOPR .♦. 


Ht ♦. 




H5 ♦. 


* * 




.♦ ♦. 


ASCII 


♦ . NO 


.♦ ERROR ♦. NO 


SPECIFIED 


*♦.... 


♦. FCDNE ...... 


♦ KM 


* 


*. '^^^"'' ^' '"\ 


♦. . ♦ 




♦. . ♦ 


♦ . .♦ 




♦ . .♦ X 


♦ YES 




♦ YES ***** 
**♦* . *ES ♦ 
♦DS ♦ . ♦ A1^ 


X 




♦ KU ♦.X. ♦ ♦ 


*♦** 




* * , * 


* ♦ 




♦♦♦♦ . IJI ER1 


♦ P5 ♦ 




IJi* IGN X 


* * 




***j^*** ********* 


*♦** 




SVC 
♦ PERFOBH ♦ 

♦ OPERATION * 










IF BEQDIBEE 

4c*:tc4c************* 









♦KU 
MTMOD MACRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



:|>44K5********^ 
RETURN TC ♦ 
CALLING ♦ 
ROUTINE ♦ 

4<************* 
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Chart DS. ^3TMCD: Error Exit Routine, Variable Length Records 



UP EBI .*. 

B1 *. 
.* OSES *. 
lES .♦ ERROR *. 
...*. ROUTINE 

♦.SPECIFIED.* 
*. .* 
*. .♦ 
* NO 



* LOAD ADtRESS * 

* OF PARAHETER * 

* LIST IN ♦ 

* REGISTER ♦ 



4i4iitc)|c*4> 



*«4<**>|i*4<i» 



* * 

TORN OFF 

FIRST TIHE 

SWITCH 

♦ * 



4c 4i*4i*D1**4"K ****** 

* ♦ 

* GET ERROR * 

* ROUTINE * 

* ADDRESS * 

* * 



ERREXT 

SPECIFIED 

*P3 



♦♦♦*C2********* 

* RETDBH TO * 

* USER 7IA * 

* REGISTER m ♦ 



«««4c4<B4** ******* 

♦ 

* SAVE 

* LINK 

* REGISTER 



IJF NRXT X 

4>4c*4c*C4********** 

* RESTORE * 

* USER * 

* REGISTERS * 

* * 



DATA 
CEICK 



* TURN OFF * 
♦UNRECOVERABLE* 

* I/O ERROR * 
♦ BIT * 

* * 



«««««£ 2*** ******* 



« 4> * :)< >l< 4 4t9|e 4t 4> * ♦ « )f * « 4' 



«««4c«f 2********** 

* * EXECUTE * ♦ 

* ♦USEE ERROR ♦ ♦ 

* ♦ ROUTINE * * 

* * EAL VIA * * 

* * REG 1U * * 



*F3 
HTHCD BACEC 
PARAMETER OPTION- 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



* LOAt * 

* PARAMETER * 

* LIST ADDRESS * 

* INTO REGISTER * 

* 1 ♦ 



* * EXECUTE * * 

* * ERROR * * 

* * ROUTINE * * 
*VIA REG. m* 



* * 



* * 



«««««**** *4i« «)•■«* 4> 



* LOAD ADDRESS * 
X* Cy USEB * 

* E^IiCR ROUTINE ♦ 

* * 

«4c4 4>i»4<4<4<««4444>*)e>* 



* LOAD 

* AIDRISS CE 

* PARAMETER 

* IIST INTO 

* «1GISTEF 1 



4t*4*F 5*** ****** 

* EXIT TO * 

* USER ERROR * 

* ROUTINE * 



««««*H1 ********** 

* LOAD * 

* ADDRESS OF * 

* ERROR BLOCK * 
♦INTO REGISTER 0* 

* * 



.*REENTRY*. 
* MODULE TO * 

SKIP IGNORE 
*.0R RETRY .* 



X ♦«♦♦**♦*♦♦******♦ 

***** 

♦DD ♦ 

* El* 

* * 



«««4>H5^***^**** 

* SVC 50 » 
.X* RETRY NCT * 

* VSIIt * 

*********:t***** 



J1 *. 




* ERROR *, 




EXTENSION 


*. NO 


BIT ON 


.*.... 


IN DTP . 


* 


♦ . .* 




♦ . .♦ 


X 


* YES 


**** 



4i««*«K1 ********** 

♦ PUT ADDRESS * 

♦ OF ERROR * 

♦ BLOCK IN ♦ 

♦ PARAMETER ♦ 

♦ LIST ♦ 
***************** 



IJF IGNR 

*****JH********** 

* SAVE USER ♦ 
♦REGISTERS 6-13 * 
♦RESTORE MODULE * 

* REGISTERS * 

* 15-1 AND 8 * 
*iif***i^*********^f* 



*«KU******* 

* TURN * 

ON FIRST 

TiniS S^JTTCH 

IN DTP 



4c«««4i*4*«** 



***** 
♦DO * 
♦ J 5* 
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Chart DU. MIMOD: Read/Write Sufcrctitine, Undefined length Beccrds (2 cf 2) 



♦DT ♦ 
♦ KU* 



♦♦*♦♦ 

• OT ♦ 

* J1* 



»2^ *. 

♦HESTOBE HODULE * SKIP .♦ BCCOLE TO *. BETB 

* BE6ISTEBS AMD *X *.SKIF« IGMOBE, ^ 

♦ SKIP RECORD ♦ ♦.OB RETBY^ 



SKIP, 

♦.3b R 



♦ SVC EC * 
.!♦ RETRY ♦ 

♦ SOT VALID ♦ 



X 

•DD ♦ 
* B1* 



SAVE AHD 

RESTORE 

REGISTERS 



• * 
^lOBH OH ' 

PlRST TIHE 
SWTCH 

• * 



X 

♦DT ♦ 

♦ C3^ 



♦ SAVE AND 

♦ RESTORE 

♦ RRGISTE'IS 

* 



* * 
TURN OH 

EHD OP PItE 
BIT IH DT? 

♦ ♦ 



♦ ♦ 

♦ OPIATE ELOCK ♦ 

♦ CODNT IH DT1» ♦ 

♦ IP RRQOIRED ♦ 



♦ * 

♦ €1>T AfJBISS ♦ 
\* OP EHD OP ♦ 

♦ l»ltE RODIIHE ♦ 

♦ * 
********** 4****** 



**4*(;e«**4:»**«4, 

♦ ?XIT TC ♦ 

♦ CSER ECP ♦ 

♦ ROOTIHl ♦ 
*************** 



♦ ♦** 

♦ DC * 

♦ W 



♦ .X 



**** 
UP EOF? 

**i;||******* 
♦ TORH OH ♦ 

♦ EHD OP I'll? ♦ 
♦ BIT IH DTP ♦ 

♦ IP RTJQDIRED ♦ 

«****««**** 



♦ GET 

♦ BBQDIRED 

♦ ADDRESSES 
♦ 
************ 



*****Q1(** ******** 

» ♦ ♦ * 

♦ ♦ SVC 2 ♦ ♦ 

♦ ♦ PETCH ♦ ♦ 

♦ * TTIJIHSTEHT ♦ * 

♦ * * * 
***************** 



IDRH OPP 

PEOV Ell 

IN CTF 

* * 

*********** 



* 






****J5**44***** 


IHPDT 


*. 


YES 


♦ *ETD1!H TC 


PILE 




*. . . . 


* n^vv. VIA 




* 




♦ ^EGISTFE ia 


.♦' 






*************** 


*. .♦ 




X 




* HO 




***** 
♦DT * 
* PI* 





THC *. YES 
I/O ARIAS ...... 

. SPECIFIED. ♦ 



X ♦. .♦ 


Y 


***** * 


***** 


*DT ♦ 


♦DT ♦ 


♦ C2^IJP CHHG 


♦ m*\3^ BCHI 
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Chart DW. KTMCB: Work Area Subroutine 



♦HTHOD ROBRABBK * 
* SDBBOOTIHBS ♦ 
« VABIKBLE * 



* GET BBCOBD * 

* LENGTH FBOn * 

* CBBL0CKEB4 « 

* * 
****4i**«4i4>4i4>*4t*«« 



UP COHF X 



TBOHCATB 
IP BEQOIBED 



«4<***********4i«** 



* IHITIALIZE * 

♦ LOOP 7iL0E ♦ 



«**«****««*«4i«4t«4i 



IJF BOTE X 

*HO?E 256 BITES ♦ 

* *HB UPBATl ♦ 

* POIHTEBS ♦ 

* * 



*HOVE BEHAI1IIN6 * 

♦ BITES ♦ 

♦ IF EEQOIBED * 

♦ * 



♦ BETUBM TO ♦ 

♦ CALLING ♦ 

♦ BOOTIHl * 



♦MTHOD ^OEKAHEA * 

♦ SDEBOOTIHES ♦ 

* FIXED * 



♦ LOAE BECOBD * 

* LESGTH IND * 

♦ TO- ADDBESS ♦ 

* * 



* LOAD FBOn- ♦ 

* ADEBESS AND ♦ 

* CLIAH HIGH * 

* OBDER BITE * 

* OF ADDBESS ♦ 



* BTBCD * 

* WOBKAFEA * 

* SDEHCDTINI * 



IJPNBKI 

* LOAD FBCH- * 

* ADDBESS * 

* AND BICOED * 

* LENGTH * 

* * 



♦ LOAD TC- * 

♦ ADDBESS AND * 

♦ CLIAB HIGH * 

♦ CBDEE EITI ♦ 

♦ OF ADDBESS * 



INITIALIZE 

BCVE LOOP 

VALUE 

♦ * 



*BCVE 256 EITIS * 

* AND UPDATE * 

* PCINTEBS ♦ 

* * 

4< Hi 41 :tt ifi 4 *4< * * * * * * ♦ * * 



* MOVE * 
♦BEHAIHING BITES* 

* IF BEQUIBID * 

* » 



****G2*****'*'*** 

* BETUBN * 

* VIA ♦ 

* BEGISTEB 7 * 



♦G3 
MTHOD MACEO 
PAEAHETEB CETICN - 
DECISION DOES NOT 
APPEAH IN AN 
ASSEMBLI LISTING. 



♦***A4********* 

* MTHOD ♦ 

* ^ORKAEEA * 

* SUBROUTINT- * 



* MOVE RICORD * 

* LENGTH * 

* INTO CCR * 

* * 

« )|i * 3|t 4> :!■ * )tt * « « * « 41 « « « 



*4i4c*«CU** ******** 

♦MOVE BLOCK SIZl* 

* INTO CCN AND ♦ 

* GET PARRHETE'R * 

* LIST * 

* IP REQDIBED ♦ 



♦ GIT BECOBD * 

♦ LENGTH AND * 

♦ I/O ABEA * 
ADDRESS 



* PUT ADDRESS * 

* OF I/O ARIR * 

* IN CCB ♦ 

* »< 

* 4< 3|c If :» 4< )i< « * * 3tc i«t * * « i« :)< 



* * 
♦TRUNCATE RECOBD* 

* TO BLOCKSIZE * 

* IP REQUIRED ♦ 



NOTEENT 

SPECIFIED 

*G3 



HU *. 
.* FILE * 

FOBTISRD 
SPACE 
. REQUIRED 



* ITHOt ♦ 

* ^CRKBRE* ♦ 

* SU^RCUTINES ♦ 



* E5 *.X 



♦ *** 

♦ TUBW CS * 

♦ FOT?^ftRD SPRCE* 

* EILE BIT * 

♦ IN DTP ♦ 

* * 



♦ S'^f * 

FORWARD 

SE»CE 
COMMAND 

* IN ecu * 



* 35 * 

« * 

*♦*♦ 



* MTMOr * 

* 1»CRKA1EA EXCE * 

* SUBROUTINE ♦ 



* SVC 

FCR«J!lRD SPACE 
* THE * 

4[4>* ************ 4* 



****Q5********* 

* t;etui!N tc * 

* CULLING ♦ 

* routise * 

:(<** ************ 



*)lt**J1 ********* 
*nTHOD NOBKABBA * 
* SUBROUTINES * 
t UNDEFINED * 

*«4»|r**4>«******* 



IJF flOBK X 

♦ IHITIALIZE * 

♦ MOVE LOOP ♦ 

♦ VALUE AND * 

♦ GET BBCOBD * 

♦ LENGTH ♦ 
*4i**4>*4>**«***«4(«]K 



♦***J4 ********* 

* BETUBN TO * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart EB, $$BCMT01: Cpen Input Standard Latels, Forward (2 of 2) 



*BA ♦ 
♦ P5* 



C0flTIND3 .*. 

A1 *. 
,♦ ♦ 

HO .* VALID 
.*. GBHEBATION 
*. HOHBSB 



C0BTIMD2 ^.*. 

Ai *. 
.♦ TLBL ♦. 
YES .♦ PILE 

.♦X *. SZCOENCE 

*. HOHBEB . 
.* *. BLANK.* 

,♦ *. .♦ 

♦ IIS ♦ SO 



7ALID 
VERSION 
BUHBBB 



COHTIH05 .*. 

CI *. 

• * *. 

.* VALID « 



DATE 

.* 
♦ . .♦ 
♦ NO 



HS633D X 

♦HSGiBITB FJ* 
*.*.*.*.*.«.*. «.* 

* IHITE * 

* MESSAGE * 

* 4133D ♦ 



...*. BESPONSE 


,♦ 


*. 


* 


*. .* 




X ♦. ,♦ 




«*«*• :ti IGH 




*EA ♦ 




♦ 61* .X..., 




» ♦ 




♦ 




X 




LABELCBK .*. 




PI ». 




.* *, 




.* LABADDB 


*. BO 


*. SPECIPIID 


.♦*.. 


** 


* 



E2 *. 

.♦ TLBL *. 

PILE 

SECOENCE 

. BflNBBB . 

♦ .HIGH .* 

♦. .♦ 

* LOB 



HSGUA X 

«**«*C2*********4> 
*HSG«BITE PJ« 

♦ BRITB ♦ 



D2 ♦. 
, * ♦. 

BESPONSE 

.♦ 
*. .* 
*. . ♦ 
* CNCL 



BEAD3'Ili 

♦SVCOBAII FJ* 

...X* SPACI * 

* PCBRABD * 

♦ ONE PILE ♦ 



X 

*!A^* 
♦ E3* 



♦EA * 
♦ PI* 



* SVC 6 * 

* CANCEL * 

* * 



BEAELABL X 

♦TAPEBEAD PJ* 

* RIAD TAPE * 

* FOBBARD ♦ 

* * 



«4>4>**H1 **'•'***«*** 

♦ ♦ EXIT TO ♦ * 

♦ ♦OSEB LABEL * * 

♦ * BODTIHI * * 
IP ^ ^ 



* * 



* * 



^^i*************** 



♦HOVE X«3P» TO^ 

♦ TAPECC12 ♦ 

♦CCHHAHE CODE ♦ 

« « 



♦SVCOBAIT FJ^ 

♦ SPACE TAPE ♦. 

♦ POBBABD TO ♦ 

♦ TAPBHABK ♦ 



♦ SVC 2 * 
. 1* FETCH ♦ 

♦ $$BOHT07 ♦ 
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chart ED. $$BOMT03! Open Ci^tput Standard Labels, Fcrvard, Phase 1 (1 cf 2) 



♦***A1********* 

* * 

* $$BOHT03 ♦ 

* * 



.♦ VALID 

♦. LOGICAL 

♦. OHIT 



* 4> 

* SET PROPER * 

* TRACK * 

* MODE * 

* ♦ 



* HOVE OHIT * 

* TYPE IHTO ♦ 

* TAPECCB ♦ 

* ♦ 



X 

.*. 
El *. 
.* *. 
.* RETURM *. YES 
*.FBOM MESSAGE ...... 

♦. WBITER .♦ 



NS6831 

« « «4t « £ 21' 4< * *')' )(■ * * >>"<■ 
♦MSGiEITE FJ* 

♦ -♦-♦_♦-♦_♦_♦_♦-.♦ 

...X* UBITE * 

♦ MESSAGE * 

♦ 41831 * 



****C2********* 

* SVC 6 ♦ 

* CANCEL * 

* * 

i)iif:tt* *********** 



NCTBLANK X 

*****]^2********f** 

♦ CALCULATE * 

♦ ABSCtDTE ♦ 

♦ EXPIBl EATE * 

♦ IF REQUIRED * 

♦ ♦ 



MOVBLBK 
. 4.«44<*E3****>I>>I<*««« 

♦ BLAMK COT * 

♦ FIRST BYTE * 

♦ EXPIRE EATE ♦ 

♦ IF HECDIRED ♦ 

♦ * 



GETDATE X 

:/t^if:t,1f^fC2********** 

♦ MOVE TOE AY'S ♦ 

♦ DATE TO ♦ 

♦ CREATION EATE ♦ 

♦ OF TLBI CARD * 

♦ IHAGE IF REQ. ♦ 



YESLDPT X 

4(«)X44A44«44*44)«44 
*READTAPE FJ* 

* READ TAPE * 

* FORWARD * 

* ♦ 
«***44iOt44*4*44 4<4* 



V0L1 

LABEL 

RIAE 



*4K.*4^54i(<44)»4>t(444 



4444444**4 4* ♦DC 444 



MSG10A 

44444C It ********** 
♦MSGHHITE Fa* 
4-*-.*-.*-*-*-*-*-* 

* WRITE * 

* MESSAGE * 

* miOA * 

444444444 4******* 



OIDCARD X 


.*. 


44444D 3*** ******* 


D4 *. 


4 4 


. * *. 


* SET ETF * 


NiTP .* RESPONSE 


* BLOCK CCONT ♦ 


*. VOL. SERIAL 


* TO 2EEC * 


*. NDMBIR . 


4 4 


*. .* 


4«4444 4444 4444444 


*. .♦ 




* YES 


44** * 




*EE ♦ .X 




* El *.X. 


* 


4 4 




**** 


' 



****-£2********* 

* RETURN TO * 
.X* ADERESS IN * 

* REGISTER m ♦ 
44**44***4***** 



4*4 4*p1 44*4****** 

* MODIFY TLBL * 

* IMAGE IN MAIN * 

* STORAGE FROM * 
*DTF INFORMATION* 

* IF REQUIRED ♦ 
4******4***4***44 



GETDEFLT X 

4**4*61 ******4*4* 

♦ HAKE VOLUME * 
*SBQ., FILE SEQ.* 
*ANE GENERATION * 

♦ NUMBER 0001 * 

♦ IF REQUIRED * 
4*******{*******« 



4**4«|]144******** 

* * 

* HAKE VERSION * 

* NUHBER 01 * 

* IF REQUIRED ♦ 

* * 
***4************* 



REWIND X 

44444E3********** 

*SVCOWAIT FJ* 

4-4_4-4-4-4-4-4-* 

..X* REWIND TAPE * 

. * TO LOAEECINT * 

. * IF REQUIRED * 

444444 44 444 444444 

444* 



* E3 * 



ISLOADPT 

44444P3444444**** 
*SVCOWAIT FJ* 
4.4-*-*-*-*-*--«-* 

* * 

* SENSE I/C * 
4 ' ♦ 
44444444 4*4 444444 



4****^4*****44**4 
*SVCOWAIT FJ* 
4-4-4-4-*-*-*-*-* 

♦ BACKSPACE * 

♦ TAPE ONE * 

♦ RECORD * 
444444444 4444444 4 



4**«*Fq********** 

♦WRITETAP FJ* 
4-*-*-*-*-*-*-*-* 

* WRITE ,V0L1 * 

* LABEL AND * 

* DUMMY RECORD * 
44444444*44444444 



G3 *. 




44***64********** 


4 4. 




*SVCOWAIT FJ* 


TAPE AT *. 


NO 


4-*-*-*-*.*-*-*- 4 


LCADPCINT . 


*. . . . 


* BACKSPACE * 


. * 




* TAPE ONE * 


*. .♦ 




* RECORD * 


4. .4 


X 


444******444 4444 4 


* YES 


44444 






*EE * 


4*4* l 




* A3* 


4 * 




* « 


* H4 *.X. 


. EACKSPC2 * 


* * .X 


i 




*♦** 



EXPDATE .♦. 

J1 *. 
.* TLBL *. 
. * EXPIRE * 
*. DATE 

*.^ ZEROS ^,* 

'*. ,** 
* YES 


. NO 
.*. . . . 


""SI..,,.!..,...,. ; 

44444**4*4*4*4*** 




Ix 






X 

**** 

* 4 

:«: 

4*4* 





44444H3* ********* 
*READTAPE FJ* 
4-4-4-4-4-4-4-4-4 

* SET DENSITY ♦ 

* BIT FOR * 

* 9-TEACK * 
44 444*4 4 4 44 44 4444 



4*«44J3 44 44444444 
♦SVCOWAII FJ* 
4-4-4-4-4-4-4-*- 4 

* SENSE I/C * 

* AND BACKSPACE * 

* RECORD * 
44 444*4444 4444*** 



44K3******* 

4 * 

*SET BEQUIBED ♦ 

* VOLUME * 

* SWITCH * 

4 * 

44444444444 



4444 
4 4 
* AIJ ♦ 
4 4 

4*44 



ISOPEN X 

44***H4********** 
*MOVE VOL. SER. * 

* NUHBER INTO * 

* TLBL FILE * 

* SERIAL NUMBER * 



COMPARE .*, 


HSGi:2A 


ja *. 


4*444J5444444**** 


.* CAN *. 


*MSG\iRITE FJ* 


.♦PILE SERIAL*. NO 4-*-*-*-*-*-4-4-4 


*. NUMBER BE .*. 


X* WRITE * 


*. IGNORED .* 


: "imr : 


4, ,4 


*. .* 


4444444444 44 4*444 


* YES 




X 


; 


44*** 




*EE * 


X 


* A1* 


.*. 


* * 


K5 *. 


* 


,* *. 


YESOPEN 


NWTP .* *. 




...*. !5ESP0NSI .* 




*. .* 




*. .* 




X *. .* 




♦*** * IGN 




* 4 




♦ E3 * 




4 4 X 




4*** 444* 




4 4 




* Ha * 




4 4 




44«* 
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Chart EF. $$BCMTO«»: Cpen Output Standard Labels, Forward, Phase 2 



* * 

* A3 ♦ 

* » 
♦ ♦♦♦ 



♦ fSBOHTO* ♦ 



♦ INITIALIZE * 

♦ REQUIREE * 

♦ AREIS AMD ♦ 

♦ BIGISTSHS * 

♦ * 



HIMETBK .*. 

CI ♦. 

,* IS *. 
.* BETOBN ♦ 
*.FBOH MESSAGE 
*. HRITEB .* 



♦ S7C 2 * 

♦ lETCB *X. 

♦ $$B0PB1I * 



♦ RETOBH VIA * 

♦ ADrBESS IB * 

♦ BEGISTEB Mi * 



BUILDLBL 

*BUILC COMPLETE * 

* STANDABD PILE ♦ 

* HDB1 LABIL * 

* FBCM TLBL * 

* CABD IMAGE * 



♦iRITETAP FJ* 

* WRITE HBB1 ♦ 

* LABEL * 

* * 



*HSGWEITE FJ* 

* WRITE ♦ 

* MES|AGE * 



INFO 

OPBATE X 

* * 

* UPDATE ♦ 

* TLBL * 

* IHFOBMATICH * 

* 4> 



INIT 

* INITIALIZE * 

* COUNT FOB * 

* DP TO 8 ♦ 

* DSER HEADER * 

* LABELS * 

*♦♦* I 

* * . 

* J1 ♦.X. 



* TOBN ♦ 
OFF LAST 

OSEB LABEL 
WBITTEN 

* SWITCH * 



NO .* FILE ♦ 
. ..♦. POSTED OPEN 
*. IN DTF .* 



* TDBN ON ♦ 

* ECF SWITCH 
* ANE BESET 

* FIBST TIME 

* SWITCH * 



* BETDBN TO * 

* LIOCS VIA * 

* SVC 11 * 



* * * * 

* ♦ EXIT TO ♦ ♦ 

* *DSEB LABEL * * 
ROUTINE 



♦ * 



* * 



^tt'**'¥************ 



4c 

♦ MOVE USER 

♦ LABEL TO 

♦ I/O ABBA 



♦♦OH******* 

* TURN ON * 

* LAST USER * 
LABEL WRITTEN 

♦ SWITCH If * 

* LBRET1 * 



♦WRITETAP FJ* 
♦_♦_♦-♦_♦-*-*-♦-* 

* ♦ 

* WRITE TAPE * 

* ♦ 
4i«*4t*4i****4i4c***** 



.* LAST 
. USER LABEL 
*. WRITTEN . 



*♦*♦ 

♦ * 

* K1 * 



* LAST 

USER LABEL 
*. WRITTEN . 



* K1 



*.X 



**♦* 
COBOLWRT X 

*4i**4<Kl******1'*** 
*SVCOWAIT+a FJ* 

♦_*_♦_♦_♦_♦_♦_*-♦ 

* WRITE * 

* TAPEMAEK * 

* * 



*♦♦* 



.* HAVS ♦. 
* 8 USER ♦ 

LABELS BEEN 
*. WRITTEN .* 



« 4t«4c * J I) *« « *4< ** 4t4< * 

♦MSGWRITE FJ* 

*_♦_*_♦-.»-*-*_♦_♦ 

* WRITE ♦ 

* MESSAGE * 

* U124I * 



*«*4iK4********* 

* SVC 6 * 

* CANCEL * 

* * 



♦*** 
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Chart EH. $$BOM106: Open Wcrkfiles 



♦♦♦♦ 

* * 

* A3 ♦ 

* * 

♦ ♦*♦ 



* A5 ♦ 

♦ ♦ 
♦ *♦♦ 



* * 

* $$EONT06 * 

* * 



.* LOGICAL *. 

*. QHIT I61I0BE . 

*0B UHASSIGH* 



CONTIMUE X 

■tiiH^:H^j^2********** 

♦lOCOIOBI FJ* 
♦_*-♦-♦-♦-♦-♦_♦-♦ 



««*«* 4t4>9|ti|i* ******* 



HSG83I 

iti^Hntt^ti22********** 
♦HSGUBITE 73* 

,..X* !)BITI * 

* MESSAGE * 

♦ ai83i ♦ 

1HHtHf*iHf*******ti** 



ni**tiC2*** ****** 

* SVC 6 ♦ 

* CANCEL ♦ 

* * 



* 




BEAD "rAPE 




♦ 


* 








* 


*i 


|c*l 








X 










.♦. 










B3 *. 










* * 








* 


VCL1 


4c 


YES 


*, 




LABEL 




♦ 




* 


*. .* 
♦ SC 


* 





H0V0L1 

Hi:ti*ilHHQ2********** 

*IOCOIOBT FJ* 

* BACKSPACE ♦ 

* TAPE, UBIIE * 

* TAPEHABK ♦ 
***************** 



*****^H********** 



***************** 



BDAGAIN 

*****QH********** 

♦lOCGIORT yj* 

♦-»-♦-*-*-*-♦-♦-♦ 



***************** 



MBTTfliJR X 

*****J^^********** 

♦lOCCIOBT FO* 

* BACKSPACE ♦ 

* lAPE * 

* * 
***************** 



*****^^********** 
♦TCCCTCfT fJ* 

* «BIT1 DBBMT * 

* HIIDEB tAIIL * 

* OF ZIBOS ♦ 
***************** 



NVOLCK X 

*****Q^********** 

* * SVC 2 * * 

* * FITCH * * 

* * ttBONVOI * * 
*I¥ BICniBlD* 



* ♦ 



* * 



*********n****** 



*****D'[********** 

* HOVE 0HIT ♦ 








TOEXIT X 

*****T)3********** 

* * 

* BLASK VCLIJHE ♦ 

* SEBIAL HUMEEB * 

* SAVE ARIA ♦ 

* ♦ 


.* HDR1 
*. LABEL 
*.^ READ ^^ 


*, 

♦ 


NO 
♦ . . . . 


*****jie,*** ******* 
♦ICCOTOBT FO* 

* URITI ♦... 

* TAPEBAEK * 




***************** 










*. .♦ 




X 
















**** ; 


* YES 


















* ♦ . 






* A5 


* 














. E3 ..J. 






* * 
**** 






X 








**** 














.♦. 

El *. 
.♦ *. 

♦ Ifboh^heIsage*!*"?.. 


* 

..IJ 


****v 2*** ****** 
BETTJBS TO * 

*************** 


EXITBTH 

****v2********* 

* SVC 2 ♦ 

* FETCH ♦ 

* tlBOPEN * 
*************** 


.* *, 
.* HDR1 


*, 


*..... 


Sf 


*****vti********** 
JlOCOiOBT FJJ 
X* ^ - - - ^^^^ 

* I'AD TAPI * 

* * 




»: IBITEB .* 
*. .* 








♦ . .♦ 










**. .** 








***************** X 


* HO 


















♦ ♦♦♦ 

* ♦ 

* E3* 

* * 


* 




































**** 



PROCESS . *. 

F1 *. 
.* ♦. 
.* NOBND 
♦. SPECIFIED 
*. 



♦♦»* 

♦ ♦ , 

♦ G1 *.X. 

* * . 

TESBERND X 

*****Q^ ********** 

♦lOCOIOBT FJ* 

* BBIIND TAPE * 

♦ TO LOADPOINT * 

* * 
***************** 



HSG19A X 

*****QH********** 

* * SVC2 * * 

* * FETCH * ♦ 

* * <$BMSGNH * ♦ 

* * FOR KSG ♦ * 

* * 4119A * ♦ 
***************** 



HBEIIND X 

*****H-\********** 

♦lOCOIOBT FJ* 



***************** 



*****j^ ********** 
♦lOCOIOBT FJ* 

«.*. Hi. *. 4>- «-*-«- * 

* READ TAPE. * 

* SENSE, AND 







* 


* 


NWTP 


* 






. . .* 




RESPONSE 




* 










* 


,* 


X 






*. .* 


***# 






♦ IGN 


* 








G1 * 






Ix... 


* 






X 


*♦♦♦ 






* * 

* A5 ♦ 

* * 
**** 



ACRSPACE 
*********. 



***************** 



**f^^******* 

* * 

* SET NEl 
* VOL SNITCH 

* IF BEQOIBED 

* 4> 
*********** 



..3. 

*♦*♦ 
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Chart EK. S$BJCCPT: Job Ccntrcl Tape Open Routine, Phase 1 



♦♦♦♦ 
* * 

* A2 ♦ 



♦ **♦ 

♦ ♦ 

♦ A3 ♦ 

♦ * 

♦ ♦♦♦ 



* $$BJCOPT ♦ 

* ♦ 



* SAVE LOGICAL ♦ 

* ONIT II * 

* REQOIRED * 

* AND GET ♦ 

* DEVICE NUHBEB * 



♦ SET OP DDHMT 

♦ AND TAPE CCB 

♦ HELOCATE 

♦ HTCCVI2 
♦TRANSIENT ABEB 



.* IS RETOBN * 
.FBOn MESSAGE 
*. WRITER .* 



* SET * 
* CONSOLE 
INDICATOR TO 



♦MSGHRITE FJ* 

♦_♦_♦_♦_♦_♦_♦_♦_* 

* WRITE * 

* MESSAGE ♦ 

* tl170I * 

4c j|( 3|i:|i « * * :|t 4c « * * :(( * « * « 



IS 

RESPONSE 
. NEWTAP 



4c4<4c4<C2********* 

* SVC 6 * 

* CANCEL * 

* * 



* RETURN TO * 

* ADEHSSS IN * 

* REGISTER m * 



*CHKTPM EK* 
♦_♦-♦-♦-♦-*-*-♦-* 

* CHECK FOR *X. 

* TAPEHARK * 

* * 



itittj2******* 



RTRYNT X 

4i4<**4< A3 ********** 
*EXCPRG FJ* 
♦_♦-♦-♦-*-*-♦-♦-♦ 

* * 

* READ TAPE * 

* * 

4>4i:»4>4':»4<4<4c******4<4e 



OSDSTM 

4cj|c«4t4<B<4********** 
*CHK'rwM EK* 



*.DNRECOVERAELE.*. 
*.I/C EERCB.* 



*_♦_♦-♦- 



♦ ♦ 

* HI * 



4c«4i**C3 ********** 
*EXCPRG PJ* 
*_♦-♦_♦-*-♦-♦-*-♦ 

* REWIHE AND * 

* READ TAPE * 

* * 



. *.DNRECOVERAELE.* 
*.I/0 ERROR.* 



* GET LOB * 

* AND POE * 

* POINTERS * 

* * 



4i4<*44<«**«** 



CKtIDSM X 

4c 4<*4<*l34****4c =<<**« 
*EXCPRG FJ* 
4c-4c-4c-*-*-*-*-*-* 
4c 4" 

* REWIND TAPE ♦ 

* 4c 
4t4(*4c4*:»44*«*4««4:* 



4c4c4c4c4cf 34c4c4c4c4c4c4c«*4' 
*EXCPRG FJ* 

*-4c-4c-*-4c-4c-4c-4t-4< 

* ♦ 

* READ TAPE ♦ 

* * 

4c4<4<4>3»3»)»*4:»*:»:»>l<«i«c4c 



.*. 


MSG83I 




G1 *. 


4c4c4>**G2********** 


.* ♦. 


* INITIALIZE * 


.* IS *. NO 


* TC WRITE * 


*. DEVICE .*.... 


. ...X* MES£ 


IIP t 


♦. TAPE .* 


% ^^ 


*. .* 


* ♦ 


*. . * 


4c 4c 4c4' 4< 4 4'4c 4c 4c 4« *« 4c4c 4c 


* YES 




♦ *** 






* ♦ . 






* HI *.X. 






* ♦ . 






**** 






GOTOIO X 






4c4<**4(H1 ********** 


X 


*EXCPRG pa* 


4c4c4>4cB2********* 


4.-4C-.4C-4— *-♦-*-*-* 


♦ SVC 2 * 


« * 


* FETCH * 


* SENSE * 


♦ $fBMSGiR * 


* 4c 


4<4c4c4c444c4'*444c**4c 


444c*4c4c4c**4c*4>4c4c4<*4< 







**** 

4c 4c 

* A3 * 



4c4cK2******* 

* SET * 

DENSITY 

SWITCH TO 



4c4cG3******* 
4c 4c 

SET BRANCH 

INDICATOR 

TC 

4< 4t 

4r44444«4'444c 



.DNEECOVERAELE. *. . . 
*.I/C ER5CE,* 



4c 4c 4c 4< 4c 4i 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 



N0VOL1 X 

4c 4c 4c 4c 4cC4 ********** 
♦CHKEXT FJ* 

4c_4c-4c-*-* -*-*-*-♦ 

* MOVE PROPER * 
*INFORMATICN TO * 

* ERROR RECORD ♦ 
4c 4c 4c 4c 4c**** ******** 



**D4******* 

* SET * 

* ERANCH * 
* INDICATOR * 

* TO REQDIREt) * 

* VALOE * 

4c4>4c«*4'***** 



****1(4********* 

* SVC 2 * 

* FETCH * 

* '^^BJCOPI * 

4c4c4c4c4c4c4c4c44'*4c*4c4' 



****S5********* 

* ^"^BJCOPT * 

* ISGViRTiE * 

* SDERCHTINE * 

4c4c4>************ 



MSGWRTT-F 

4<*4c4*P5***44**3»** 

* mcvt: NFSSJGE * 

* TO HIGH MAIN * 

* STORBGE AND ♦ 

* GET SYPE * 

* UNIT IN ECD * 
4c4>**4****444***** 



4c4c4c4c*C 5 ********** 

*XNSERT SYWECLIC* 

* ONIT IN * 

* MESSAGE AND * 

* DDl«MY CCE IN * 

* I/O AREA * 

4c4c4<********4 4**** 



4c4c*4T)5***4***** 

* SVC 2 * 

* F^TCH * 

* f^EWSGWE * 

4c4c4<************ 



****GU ********* 

* RETORN TO * 

* CALLING * 

* ROUTINE * 

4c4c4c 4c *********** 



4c4c4c*Tf5********* 

* ISBJCOPT * 
*CHECK TJPEPARF * 

* SUBROUTINE * 
4> 41 ******* 4***** 



UNIT 
EXCEPTION 
. AND FOE 



UOREWINE 

4c4c*4<*H5********** 
*EXCPRG EG* 
*_4<- 4- *-*-*-*-*-♦ 



4c 4c 4c 4<* *********** 



4c4c*4cj3********* 

* SVC 2 * 

* FETCH * 

* $$EJCCP1 * 
4c 4c 4c************ 



**a5******* 

* S^T * 
ERANCH 

INETCATCE 
TO PROPER 

* VALUE * 
4, 4, 4c 4c******* 



4c4c44'K5********* 

* SVC 2 * 

* EETCP * 

* f^EJCCPI * 
4c4c4:»4c4>********* 



4c 4c** 

* * 

* A2 * 

* * 
*♦♦* 



4c 4c** 

* * 

* A3 * 
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Chart EM. $$BCECV1: EOF/ECV Kcritcr 



♦ JJBCS0V1 ♦ 

* * 

* « * * 41 Id 4i * « * 41 « 4> 4t * 



* * 

* RELOCATE CCB * 
♦AHC CCB AECFESS* 

* CONSTANIS * 

« * 



♦CALCULATE CCHH * 
*0P SYSRES LABEL* 
* INFO AND PUT * 



* * 

* GET SAVl * 

* AREA * 

* ADDRESSES * 

* * 



* * 

* SET CONSOLE * 
♦ INDICATOR * 

* AS REQOIRED ♦ 

* ♦ 

*4<****4>4>4iit>4> 



SETENT 

* INITIALIZE TO * 

* PRINT INVALID * 

* FILE TYPE * 

* MESSAGE * 

* U880I ♦ 

* 4> iK * 4> 4> 4< 4> * * « 4> m * >K « * 



414*41 ]^-3*)l4«44)t<)t>* 

* ?$ECECV1 ♦ 

* EXCP ♦ 

* SUBROOTINE * 
4i**4i4<>»******)(<*:l> 



EXCP 

4<4t* *4>B 3**4<* ****'«'4' 
*DOIC EM* 

*-*-4i-4>-*.4>-*-*-4i 

* READ LABEL * 
♦INPCRRATICN CN * 

* NORMAL TRACK * 
4i4>4>4>4>4>>l<4<*«4t4>4>*4'«* 



*4i4ii»*C3 ********** 
♦DOIO EH* 

4i-)»-*.*.4.*.4t.4c-4> 

* SEARCH AND * 

* REAE INFO. * 

* CN TRACK * 
4>4i4>4>4<«>l>*)»4>*4>**i|<** 



4>*4tD3 ************ 
SVC 2 
* PRINT * 

MESSAGE 

♦ Jieeii * 



* SVC 6 * 

* CANCEL * 

* * 
4t4>*4'*«)|>)t<4i4>4>*4<4'« 



4i4<4i4>A4********* 

* ttBCECVI * 

* DOIO * 

* SOBRODTINi? * 
4< 4< 4< 4< * * * * 4> * :«< 4> )|t * * 



4<4<4>B 4***** ******* 



4e 41 * 4' 4< 41 4i 41 * 4c 4> * 4< 4> i» 



4c4<4<*4iC 5*** ******* 



4>4<**44i*4'**4*«)K*«4 



.* NRP CR 
END CF 
♦.CYLINDER 



E« *. 

.♦RECORD ♦. 
♦ FOOND 

IN PROPER 
*. AREA 



* RETURN * 

* TO EXCP * 

* SDERCOTINE * 
4>4>44««4>*«)»4'*4>** 



41 4>4i«G2*^^ **♦♦♦* 

* SVC 2 * 

* FETCH * 

* JJECMSGI ♦ 
41 41 4c 4> 4 *3|t * 4> ♦ * 4i Hi * * 



FRMTEL 

4i4i4c4>4(J1«*«***4<4<)|t« 
* HOVE CONSOLE * 
♦INC. ANE CCHHR * 
♦ADDR OF SYSRBS * 
♦LAEEL CYL INTO * 
♦TAPE OPEN TABLE+ 
4*4<4**«**«*«**«*4t 



4i4c4i4>K l**^'****** 

♦ SVC 2 * 

♦ FETCH ♦ 

♦ NEW PHASE * 

*4>3»»>**3|>**4««*«* 



4i4>*4<«H 2* ********* 

♦ INITIALIZE ♦ 

♦ TO FETCH * 
. X* RECOIREE * 

* PHASE * 

* ♦ 

4i4i4<** 4 4>*>l>***4c4c4>4>4> 



TSTLAB 

41 4>««* J 2** ♦♦♦♦♦♦♦* 
♦EXCP EH* 

4'-*--*-4>-*-*-4>-4i~4> 

* RIfE LAEEt * 

* INFORMATION * 

* FRCH SYSRFS * 
4i4i4»l<**il>4c*4>4*4'**** 



4i 4! 4>**K2**^ **♦♦♦♦* 

♦ * EXECDTE * * 

♦ ♦ TEONC FTN ♦ ♦ 
.♦ ♦ IN LOGIC * ♦ 

♦ * MCDDLE * * 

♦ ♦!? R3QDIRED* ♦ 

4>4i*4t4>4*4>****4>4>**4' 
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Chart FB. $$BCMT02 2 Tape Close, i^lternate Switching for EOV 



* ♦ 

* A3 ♦ 

* * 



* AU * 



* «$BCf!T0 2 * 

* * 



.* FBTORN * 
♦. FBOH HESSAGI 
♦. WRITER .♦ 



ISV3 X 

* MODIFY 1LBL * 

* CARE IMAGl IN * 

* MAIN STORAGE * 
FROM DTF 

OIR- 



ISHDRINF X 

♦HSGBRITE FJ* 

* WRITE MESSAGE * 

* «I126I * 

* IF BEQOIBID ♦ 



* * SVC 22 * ♦ 

* * SEIZE ♦ * 

* ♦ SYSTEM ♦ * 

* * ♦ * 



*GBTPOB FJ* 

* GET PDB * 

* ADDRESS FRO * 

* ASSIGNED LOB * 



*I0COIORT FJ* 

* REWIND AND ♦ 

* ONLOAD TAPE * 

* * 



* HI *.X 



NXTALT X 

*GETPDE FJ* 

*-*.*.«-«_«. *.«_4i 

♦ GET POE * 

♦ ADDRESS ♦ 

♦ * 



* * 

* SAVE MODE * 

* BESET BYTE ♦ 

* FEOM PDE ♦ 

* * 



* HETORN TO * 

* ADDRESS IN ♦ 

* REGISTER m ♦ 



♦ ♦♦♦ 

♦ D2 * 

♦ * 



* GET ADDRESS * 

♦ OF NEXT JIB * 

♦ IN CHAIN * 

* * 



♦MOVE ALTEBNATE * 

* PDE POINTER * 

* OP IN CHAIN * 

* IF BSQOIRID * 



* Gil CHAIN ♦ 

* EITI POINTER ♦ 

* TO NEXT JIB * 

* * 



*STORI STANDARD * 

* PDE IN IND * 

* OF JIB CHAIN * 

* * 
****************** 



**«4<*H2********** 

* MOVE PROPER * 

* POINTER INTO ♦ 

* PROPER IDE * 

* IP BSQOIBED ♦ 



CHKALC 

****«J2** ******** 
*6ETP0B FJ* 

* _*_*-, ♦-.♦-.:»»*^*-# 

* GET NEW * 

* POB ADDRESS * 

* * 



K1 *. 




K2 *. 


.* AN *. 




.♦ *. 


.* JI *. 


NO YES 


* AlTEBNATl * 


*. CHAINl FOR . 


*.. ..X. ...* 


PDE SAME AS 


*. THI .♦ 




*.OFIGINAL .* 


*. LDl .* 




*. .* 


*. .* 


X 


*. .* 


* YES 


*♦*♦ 

* Att * 


* NO 


X 




X 


*♦*♦ 


**** 


♦ ♦♦♦ 


♦ * 




* * 


* D2 * 




♦ A3 * 








**** 




*♦♦♦ 



ALTEBNATE 
DEVICE 
. DCWN 



* INSEBT SAVED * 
♦MODE BYTE INTO ♦ 

* ALTEBNATE POB * 

* * 



NOALT X 

*IOCOIORT FJ* 



Id-*-*-*-*.*, 



* * * * 

* * SVC 22 * * 

* * RELEASE * * 

* * SYSTEM * ♦ 

* * ♦ * 
4i**i|i4l**4<****)»4i>«>** 



*MSGWRITE "J* 

* WRITE * 

* MESSAGE * 

* aiaoA * 



* SVC 6 * 
.X* CAHCEI * 

♦ * 



lOCCEi'SW 

* * SVC 22 * ♦ 

* * SEIZE OR * * 

* * RELEASE * * 
-- ^ SYSTEM ^ ^ 



4> * 



* * 



HiflHi***** ******** 



. * STE ♦. 

LABELS 

SPECIFIED 

. IN DTF . 



****fti********* 

* SVC 2 * 
.X* 'ETCH * 

* 15<E0PEN * 



****qei********* 

* SVC 2 * 
.X* FETCH * 

* ttBCMTCB * 

«4i44*4i»4*4**4i** 



*****^n********** 

* UPDATE TLEL * 

* VOLOHE SBQ. * 

* NUMBER BY 1 * 

* IF REQUIRED * 

* ♦ 
***************** 



*****j2********** 

* INITIALIZE * 

* TC WRITE * 

* UPDATED TLBL *X 

* INFCBKATICN ♦ 
*BACK ONTO DISK * 
***************** 



NO .* TLBL * 
.,.*. INFOHMATICN 
*. IN DT? .* 



UPDATE 

*****j'j*** ******* 

* HCDI1»Y ETF * 

* FBOM UPDATED * 
. ..X* TLEL * 

* INFOTiMATICN * 

* * 
*iH*if****** ******* 



♦ -.♦-.♦«♦-.*,♦ 



***«*« 4*4 «****«*« 



4*44^5444>4*4<*44 

* SVC 2 * 

* FETCK * 

* t«BCMTC1 * 
4444444*444*4>44 
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Chart FD, $$BCMTOa: Tape Close, EOV Cutput Fcrward 



*♦♦♦ 

♦ A3 * 



* * 

♦ $$BCHTOI| * 



TRANSENT 

♦lOCOlOBT FJ* 

♦_*_♦-*_♦_♦_♦_♦_♦ 

* HRITl * 

* TAPEBAEK * 

* * 



CI *. 
.♦ STD *. 
* LABILS 

SPECIPIID 

*. IN DTP . 

*. .♦ 



» TLEt ♦ 

INPOBMATION 
*. IN DTP .♦ 



♦ OPIATE BT¥ * 
.X* WITH N^W TLBL * 

♦ lUFORHATICN ♦ 

♦ * 



* TLBL * 

INFORMATION 
*. IN DTP .* 



* MODIFY * 

* AND OPEATE * 

* TLBL CARD ♦ 

* IMAGE IN * 

* MAIN STORAGE ♦ 
«* Hi 41 4> « 4c ♦ * 4c * * 4> « * * * 



SKIP X 

4c4c4c4>4cF14<4>4c4i4t4c4c4c4>4e 

* MAKE VOLUME ♦ 

* SEQOENCI ♦ 

* NOHBER ♦ 

* IF REQUIRED ♦ 

4" 4c 

4c 4c 4c 4> 4c 4< 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4< 



NOBLNK X 

4c4c4c4c4'Gl ********** 
♦HAKE GENERATION* 

* NUMBER 0001 * 

* AND VERSION ♦ 
NDMBBR 01 



OLDCARD 

4c4c4c 4c4c H 1 * ** * 4c*** * Xc 

* MOVE TODAY'S * 

* DATE AND SET * 

* RETENTION * 

* PERIOD TO * 

* IF REQUIRED * 
4c 4c 4( 4c 4c 4c 4c 4c«4c 4c 4c 4c 4c 4c 4c 4c 



* CALCULATE * 
♦EXPIRATION DATE* 

* IF REQUIRED * 

4«4c*4c4>4c4c4c4c4c4c4c4c4c4c4c 



MOVE X 

41 4c 4c 4c 4cK1 ********** 

* SET UP TO * 

* WRITE 10V1 * 

* LABEL AND * 

* INCREMENT * 

* LABEL NUMBER * 

*4>4>*4c4c4c*4<4c*4c4c4c4c4c4c 



* SAVE * 

.X* V-CHARACTER ♦ 

* IP REQUIRED * 

4i4c«4c4c**4c*4c4***4c4c4> 



4c4c*4c4>D 2* ********* 

* * EXIT * * 

* * TO USER * * 

* * LABEL * ♦ 

* * ROUTINE * * 

* *IF REQUIRED* * 

4i4c4c4c4c*4>4c*4c4c4c4c4c4c4c* 



4i4c4cG34c4c*4c4i4c4i4c4c4c4c4c 

SVC 

* WRITE UPIATED * 

TLEL 

* BACK CNTO * 

DISK 

4c 4c 4c 4c 4c 4c 4c 4c 4c 4< 4c 4c 4c 4c 4c 4c 4c 



*4c 4c 4c 4<C3 ********** 
4c 4c 4c 4c 

* * SVC 7 * * 

* * WAIT IF * * 

* * REQUIRED * * 
4c 4c 4c 4c 
4c4c*4c*4c*4c4>4c4c4c4c4c4c4c4c 



lOCCWBIT X 

4c4c4c4c4cE2********** 
*IOCOICaT FJ* 

4c-4c-4c-4c>4c-4c-4c-4c-4c 

* WRITE * 

* TAPEMABK * 

* IP REQUIRED * 
4c4c44c4*4***4****** 



TESTASC X 

41 4c 4c 4c 4cF 2********** 
*IOCOICaT FJ* 

4c-4c-4c-*-4c-4c-*-4c-4c 

* WRITE ASCII ♦ 

* TAPEMAPK * 

* IF REQUIRED * 
4c«4c4c4c4'44ci4>4****4c4c 



CONTINUE 

4c 4c 4c 4<4cD 3 ********** 
*GET BLOCK CCUNT* 

* AND, IF * 

* REQUIRED, * 

* BLANK OUT * 

* SECURITY CCDE * 

4i4c4<4c*4<4>4>*4ci»*4<4c4<4c4c 



X.... 

ICCCWRTT 

1^ 4c 4c ♦♦ES ********** 
*IOCOIOBT FJ* 
4c_ 4c-*- 4>-*-4c- 4<- 4c- 4c 

* WRITE * 

* LABEL * 

4c 4r 

4c4c4c*****4<4c4c4c****4c 



NO .* LAEAEDR *. 
..,.*. SPECIFIED AND.* 
X *. SWITCH .* 

*. SET .* 



NORWD 

SPECIFIED 

. IN DTP . 



lOCCRWTP 

41 4c 4c 4c 4cH 2*** ******* 
*ICCOICRT FJ* 

4c-4c-4c-4c-4c-4c-4c-4c-4c 

* REWIND OR * 

* REWIND AND * 

* UNLOAD TAPE * 
4i4i*4c4c*4***4**4c4c4c4c 



4c*4c4cJ2********* 

* SVC 2 * 

* ^ FETCH * 

* $$ECMT02 * 

4t 4c 4c 4c 4 44c 4c 4c 4c 4c 4c 4c 4c 4c 



4c 4c 4c 4c 4< 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4> 4c 



4c 4c 4c 4c*H 3 ********** 

* * EXIT * * 

* * TO USER * * 

* * LABEL * * 
ROUTINE 



4c 4c 



4c 4c 



4c 4c 4c 4c 4c « 4c 4c 4c 4c 4c 4c 4c 4c 4c 4e 4c 



YES .* COECL ♦ 
. ..*. INDICATOR CN 
*. IN DTF .* 



X 

**K3******* 
* RESET * 

* SWITCH AT ♦ 
LOCATION 

* ICCCSWT1 * 
*IF EECDIRED* 

4c44444*4c4<4'4c 
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Chart FF. $$BCiy!T05: Close Standard, Nonstandard, and Unlabeled Files, All Types Except 
Workfiles (2 of 2) ur t- 



***** 

♦PB ♦ 
♦ A5* 



HON- 
STKNBARE 
. LABELS 



*****Q'\**ti****ii** 






C2 ♦. 


♦ LOIEADEH n* 






* * 


*-*.4i.4c.«.4i.4i>4i-4i 


IBS 


.♦ 


BEBMTBY 


* GO TO OSER * 


* 




FSOH 


♦ LOAD ADDRESS ♦ 




' ♦ 


$|BCMT03^ 


* EOOTINE * 






***************it,* 






"♦. .** 


'.t 






* SO 


X 


I 






♦♦♦*♦ 








♦FE ♦ 






X 


* G1* 






. *. 


* * 






D2 *. 


* 






* HEAD * 


TESTHB1I 




,* 


BACKVABD 




* 




SPECIFIED 






' *. 


IN DTF 



****ji2*n******if 

* SVC 2 * 

* PITCH * 

* JtECMTOa * 
******iHHHHt,**^Hf 



LABELED 

ii,if*i),i,^2*** ******* 
*ICCOICBT FJ* 



**************** 



SBTEXIT X 

*****f2********** 
*OSEB FP* 

♦-♦-*-♦_♦-♦_♦-*-.* 

*G0 TO LABAEBBR * 

* ICOTISE * 

* IF HEOaiHED ♦ 

********^L******** 



HO .♦ ADDIT. ♦. YES 

...*.aSEF TRAILER .*. .. 

♦ . LABELS .* 



****^n********* 

* tiiBC»!T05 * 

* LOADABD^l ♦ 

* SDBROOTINE ♦ 

*************** 


****1ir,********* 

* ItBCITCS * 

* ns^B * 

* SUBRODTINS * 

**:^it*****:tit**it* 






**** * 






*VV * 






* V.H *.x. 

* * 






**** 


ADADDR X 

*****QH********** 

* * 


* * 


* LOAD EOTADDTR * 
♦IN REGISTER 1U ♦ 

* * 


* STT C'l** AS * 

* fC? THIJTCATOF ♦ 

* TO USER * 



************* 



***************** 



*****DH********** 

♦ * 
*SAVE DTP TABLE * 
*AND OSER LABIEL ♦ 

♦ RTN. ADDRT3SS * 

♦ ♦ 
***************** 



*****^H********** 

* * EXIT ♦ ♦ 

* * TO USER * ♦ 

* * LABIL ♦ * 

* * RODTINT? * ♦ 

* ♦ * * 
***************** 



*****YH********** 




♦ RESTORE DT" 


* 




* TABLE A!iD 


* 




♦ OSER LABEL 






* ROUTINE 


* 




♦ ADDRESSES 


* 




******** 


n******** 




, 


I 






.*. 






GU *. 






.* ANS *. 






,* COBOL * 


NO 


♦. FINISHED 


* 




*. WITH .* 






♦LABELS.* 






♦. .♦ 




X 


♦ YES 




***** 
♦PE ♦ 








♦ JH* 








♦ * 








* 






ICCC^iRIT 


X 






«4t4>*H4**«^^^^^^ 




♦ RETDHN TO 


* 




* CALLING 


* 




♦ ROUTINE 


* 
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Chart FH. $$BCMT07: Tape Close, Tviternate Switching for Systero Units 



♦ StBCIlTO? * 

* * 



* NOP ecu ♦ 
* CCHHAND CODE * 

* IF BEQUIBID * 
♦ ♦ 

]|i««*4i4>4<*4i*4i 



X 

CI ♦. 


HSG83I 

* TNITIiLIZE * 

♦ TC PBINT ♦ 
. ...X* HESSAGE * 


TYPE .* 


•••• ♦ "§11*1 * 



ENTBY 
FBOM HSG. 
. WBITEB 



♦lOCOIOBT FJ* 

* -♦-.♦-♦-.♦-.♦_♦-♦-.♦ 

* IBITE ♦ 

* TAPEMABK 



F1 *. 

.♦ UNIT ♦. 

.* EXCEPTION ♦. 

*. BIT ON IN . 

*.CCB (EOVi.* 



*4< «*«**«****«*««« 



* S7C 2 ♦ 

* FETCH * 

* $$EOl!T0il ♦ 



♦ BETTJBN TO * 
,.X* ADEBESS IN * 

* BEGISTEB 1U * 



♦ICCOICBT FJ* 

♦ _♦-.»_♦«♦_♦_♦_♦_♦ 

.X* EACKSPACE * 

♦ TAPE ♦ 



* BESTCBl * 

* SAVIB LOE ♦ 

* POINTEE * 

« * 



*GETPOB FJ* 

* GET AEDBESS ♦ 
*0F POE ASSIGNED* 

* TC THIS tUB * 



C3 ♦. 

.* ANl ». 

♦ JIE»S ♦. 

CHAINEI FOB . 

*. THIS .* 

*. LOE .* 



4> * 
* A«l ♦ 

« * 



.* ALTEBNATE *. NO 
. POB SAME AS .*... 
♦.OBIGINAL .* 



* YES 



NOBETOBN 

♦lOCOIOBT FJ* 

* BENIND * 

* ANE ONLOAD * 

* TAPE * 



NOBENON X 

3ii)(i4c«ie>H1 ********** 
*HSG1iBITE FJ* 

* HBITE ♦ 

* MESSAGE ♦ 

* «»122I * 
4i:(i« ** 4<**4<4>:|< 4<*«iet«4< 



» * * ♦ 

* ♦ SVC 22 * * 

* * SEIZE * * 

* * SYSTEM * * 
« « * * 



* CALCOLATE * 

* LOB ADDBESS ♦ 

* SAVE LOE * 

* AND POB * 

* POINTEBS * 



* A3 * 

* * 
*♦*♦ 



««***4 44i««*«*4>«*« 



**4<*G2*4>******* 

* BETOBN TO * 

* IBOBLEH * 

* IBOGBAM * 



* YES 



* GET ADDBESS * 

* OF NEXT * 

* JIB IN CHAIN * 

* ♦ 



♦MOVE ALTEBNATE * 

* POB ICINTEB * 

* DP IN CHAIN * 

* IF BEQOIBED * 



*GET POINTEB TO * 

* NEXT JIB IN * 

* CHAIN * 

* ♦ 



«4i***G3 ********** 

* * 
*STOBE STANtABD * 
*POB ASSIGNMENT * 

* IN END OF JIB * 

* CHAIN ♦ 



* MOVE PEOPEB * 

* JIB PCINTEB * 

* TO PBOPEB * 

* LOB IF * 

* BECOIBIC * 



NOALT X 

*«B1|******* 

* TO'RN ON * 
* HSG. HBITEB * 

* BIT IN ♦ 
COMMONICATICNS* 

* BEGICN * 
«it<«4ii|i)|i«4>4i*)|i 



4()0i30>««C4** ******** 

* * ♦ ♦ 

* * SVC 22 * * 

* * RELEASE * * 

* * SYSTEM * * 

* * 4> 4> 



HSGHBITB 

«4>4>*)»D4** ******** 

* INITIALIZE * 

* TO ^i^ITE * 

* MESSAGE * 

* ai2iA * 

* * 



* POT ONIT * 

* NOMBIR INTO * 

* MESSAGE * 

* * 



* SVC 2 * 

* EETCH * 

* tJBMSGNB * 



*GTTEnE EJ* 

X* GET ADDBESS * 

* C? ALTEISKATB * 

* PO^ * 
*4>44444***44«4>«i»* 



.* ALTE'^NAIE *. YES 
*. DEVICE ,*.... 
*. DC^N .* 



MD1SBY X 

4*4>4 4C>:4**44 4**** 

* SET nCCE * 

* BYTE IN * 

* ULTE^NATS * 

* UITH SAVED * 

* MODE EYIE * 



4i4>4i * 4D 5*** **«* 4>4> * 

* * * * 

* * SVC 22 * * 

* * 'RELEASE * * 

* * SYSTEI" ♦ * 

* * ♦ ♦ 
4>*4<444>*4>44444«4** 



* SVC 2 * 

* FETCH * 

* t^EJCOET * 
4i**4**4t4>4i 4**44* 
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Chart FK. $$30^1 OM and $$ECWTOW: Tape Open Message Writers 



* R2 * 



♦ $$B0HT011 ♦ 
♦_♦_♦_♦_♦»♦_♦_*.♦ 

* $$BOHT01i ♦ 



♦SA7E REGISTERS ♦ 

♦ AND RELOCITE ♦ 

* CCE aHC CCW * 

* ADDRESSES IH * 

♦ TRAHSIENT ♦ 

i^iti1>*if:f *********** 



***i^*Q'\ i^**i^*^^i^*** 
♦GET FILE NAHE, ♦ 

* SYMBOLIC DNIT ♦ 

* AND ♦ 

♦ PBISICAL DNIT * 

♦ * 



itt****j^yil,*****ittiltiH^ 

♦ GET PRINTER * 

♦ TO PROPER * 

♦ MESSAGE FROM ♦ 

♦ REG ♦ 

♦ * 
***itHt,****1f*it'***** 



:lli**ittitfE'\********** 

* * 

* HOVE MESSAGE * 

* TO OOTPOT * 

* ARSA * 

* ♦ 



♦ INITIALIZE * 

♦ TO PRINT ♦ 

♦ PROPER FIELD * 

♦ OF TAPI LABEL * 

♦ * 



.♦ LABEL *. 
YES .*INFORMATION*. 
...♦. TO BE .* 
*. PRINTIC .♦ 



4i9|i«}|i*A3*4'^4'**'l'*** 
♦WRITE FJ* 
♦_♦_♦_♦_♦-♦-♦_♦-♦ 

X^ ♦ 

♦ PRINT ♦ 

* * 



AOTOTERH X 

♦NOP LABEL ecu, ♦ 

♦ (TAFECCNI) ♦ 

♦ REMOVE REPLY ♦ 

♦ ecu FROM ♦ 

♦ CHAIN ♦ 



**i)t*mQ2********** 

♦WRITE FJ^ 
♦«*-.♦_♦_♦_♦_♦-♦-♦ 

♦ PRINT » 

♦ MESSAGE ♦ 

♦ * 
*iH^fti* ************ 



AGAIN X 

**in*iif^2********** 
♦READ f3* 

ilc-*.*.*^*^*-*-*^* 

♦ READ ♦ 

♦ RESICliSE ♦ 

♦ * 



♦ CPERATCE ♦. YES 
HIT CANCEL .♦ 

♦. KEY .♦ 



:|e4c**4i4<****«**:ti««« 



♦CLEAR REGISTER ♦ 

♦ BEFORE * 

♦ CANCEL ♦ 

♦ * 



tL't**22*** ****** 

♦ CANCEL ♦ 

♦ FETCH $$ECNCL ♦ 

♦ SVC 6 ♦ 



****i^f^■\i^*il^**J^***il^ 

♦ NOP WRITE ♦ 

♦ LABEL AND ♦ 

♦ WRITE BLANK ♦ 

♦ CCW » S ♦ 

♦ * 

***ill!tf*nfti**ti****** 



♦ MESSAGE ♦. N 
INFORMATION .♦. 
♦. TYPE .♦ 



YES .♦END CANCEL ♦. 
...... OR NO 

♦. CONSOLE .♦ 
♦ . .♦ 



E3 ♦. 

.♦ IS ♦. 

.♦ RESrCKSE ♦. 

♦IGNORE. EYPASS/ 

♦NEWTAP. CB.+ 

♦.RETtY.^ 

♦ . -♦ 



F3 ♦. 

.♦IS ♦. 

.♦ RESECNSE ♦. 

♦.VOLUME SERIAL. 

♦ . NUMBER .♦ 



YES .♦ IS THIS 
...♦. RESPONSE 
♦. VALID 



♦♦** 

♦ ♦ 

♦ C5 ♦ 

**** 



t****c5*** ******* 

♦ SAVE VOLUME ♦ 

♦ SERIAL NUHEIR ♦ 

♦ TYT^ED IN EY ♦ 

♦ CP^RATCR ♦ 

♦ (t«BOHT0M) ♦ 
4<** >{*♦♦♦ ♦*«♦♦♦♦♦♦ 



♦ ♦ 

♦ SAVE VOLUME ♦ 

♦ SERIAL NC. ♦ 

♦ ?UB2 TABLE ♦ 

♦ * 



*«*4 4'^5*)»*44>:»*44'« 



IS THE 


*, 


YES 


♦ BUTLE ♦ 


RESPONSE 




♦ ... . 


♦ voti ♦ 


VALID 


.♦ 




♦ lAEEL ♦ 


♦ . .♦ 






* ♦ 


♦. .♦ 




X 


**444**4il444 4***4> 


♦ NO 




**** 


, 






* * 


♦ ♦♦* 








♦ ?5 ♦ 


* * 








♦ ♦ 


♦ "PS ♦.x. 








**** 


* * 
♦ *** 








DETERMN X 










i^**iH^V*i********** 










♦ E^TETiMINE ♦ 










♦ CALLING PHASE ♦ 










♦ AND t;ttufn ♦ 










♦ FCINT ♦ 



♦♦*♦ 

♦ * 

♦ A2 ♦ 

♦ * 
*♦*♦ 



NOTLEGAL 

it,*n,**^2^********* 
♦NOP LAEEL CCW, ♦ 

♦ (TAPECCW1) ♦ 

♦ AND MODIFY ♦ 

♦ DATA LENGTH ♦ 

♦ IN TAFECCW2 ♦ 
tt**************** 



*****J2********** 

♦ MOVE INVALID ♦ 

♦ RESiCNSE ♦ 
. ♦ MESSAGE TC ♦ 

♦ THE OUTPUT * 

♦ AREA ♦ 
itiA'*************** 



***************** 



**Qt^******* 

* TURN CN ♦ 

♦ I'ETURN FROM ♦ 
♦MESSAGE WEITER 

♦ SWITCH IN ♦ 
♦CCMH REGICN+ 

*********** 



****Yic^********* 

♦ SVC 2 ♦ 

♦ HUTCH CALLING ♦ 

♦ I'HASE ♦ 
*************** 



***************** 



*****f^2********** 
♦WRITE FJ^ 

♦_♦_*-♦_♦_»_♦-.♦_♦ 

!♦ PRINT ♦. 

♦ MESSAGE ♦ 

♦ ♦ 
***************** 
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Chart FM. $$BCNVOL: Standard Volume Label Rewriter 



♦ $$B01I?0L ♦ 



SATE X 

* SAVE OSER ♦ 

* BE6ISTEBS ♦ 

* AMD BELOCATE * 

* CCB ♦ 

* * 



* * 

• E3 ■» 



C1»5« 



.X. 



« ESTABLISH * 
♦ CCHHOHICATIOB * 
«BE6I01i POINTBB * 



* HOVE ♦ 

* LOGICAL OBIT ♦ 

* IBTO CCE ♦ 

* * 



* « 
IBCBEHIRT 
yOL LABEL 

COORTBB 

* * 



BIADVOL X 

♦IC PH* 

* BEAt ♦ 

* VOLtJBE lAEIL * 

* * 



VOL 
LABEL 
BEAL 



4i4i22**>l"l'**>l' 

* * 

SET 

PQB 

FOIBTBR 

♦ ♦ 



X 
.*. 

El 
* 

ERIRT 
FBOR 

BJCOP 



♦ HOVE ♦ 

♦ LOGICAL ORII ♦ 

♦ IMTO CCE ♦ 

♦ POB * 

♦ BJOCPI ♦ 



♦10 PH* 

«-*.*- «.♦.*.*. 41.41 

* BEWIHD * 

♦ TAPE * 
4i 41 

4i4>4t*««4>4>4i*4>4>4i4i4i4i4< 



4>4>J14i4>4i4i4i4i4t 

*IHITIALIZE * 

* VOL LABEL ♦ 

COUHTEB ARE 



BEBIRD X 

♦10 ^ PH* 

4>-4i-*-*-«-*-#-*-4> 

♦ RERIRD ♦ 

♦ TAPE ♦ 

♦ 41 
4>4>4>4i*4i4>4i4*4>4>4>4>4t4i4> 



* GET 

* AECBESS OP 

* I/O ABEA 

4i4i4>***4>«44)»4>*4t** 



4i4>***P3«4*****4>4>4' 
♦IC PH* 

4i.4i.4i-4i-4i~*-*>*-4i 

* REBBITE VOL ♦ 

* LABEL AT SPEC ♦ 

* DERSITY ♦ 

**4*>»*4«4*4)»«i»*4>* 



*4i**«Q34c*4i4>4>4i*4t4>* 

* * 

* INCBEHERT ♦ 

* AEDBESS POB * 

* BEXT BBITE ♦ 
4" * 
«4i*4>44i***4**44i4>4>4i 



4i4>*4< 

* * 

♦ B«» ♦ 

4> * 

4141** 



SETPHASl! X 

*4i4i4>4iBi|********* 

* SET 

* BETOBR 

* ADDRESS TO 

* CALLIRG 



X 

. ♦. 

C«» *. 

.♦ ♦. 

• ERTBT ♦. 

PRCH ."» 
». B0CPT3 .♦ 



4i4i4i*4>DI(**4i**4i4i** 

4> 

♦ SIT RETOBH 

♦ ADDRESS TO 

♦ B0CPT3 

41 414141 4> 4i « 41 4> 4141 4i ^41 4> * 1 



4i4>E(|**>***** 

♦ RESET * 

COHH 

SBGIOR 

SWITCHES 

41 * 

4i*4>**4>**4i*4i 






4i4>***4>**4i*4i****>» 



4i4i4i*Glt*4>*4i*»«4>* 

* RETOBR ♦ 

* TO CALtlRG ♦ 

* , PHASE ♦ 

4iA4i4i4i4i4i4i***4i*4>* 



♦ i/c 

♦ SBBROTJTIB 



RBITTEN . 
♦ . .♦ 

♦ YES 



4i4i*4i4>J3«**4i**4i4i4>4i 
♦10 PH* 

4i.4>-4i-*-«>4>«4i-4>-4> 

* WBITI EOHHT ♦ 

♦ HEADER tAElL ♦ 
4> 4i 
4>4i***)»*4*4*4«4i«4>* 



4i««Q^***)»««4i«««*« 



«4i4i4>««4>4>***4***** 



4t*4||5* ♦♦♦♦♦♦♦♦*♦* 

♦ PEUPCPfl * 

♦ OPERTlllCR ♦ 

*«4i4i4i*«*«4>***4r4l** 



41 41 4>4>*JI| 41***41**41** 



SVC 7 

RAIT 



*«****•** ****4i*** 



*, ,* 

♦ lis 



«***i(5***«***** 
» TtTDBR TO ♦ 

• CALLIRG ♦ 

♦ l^OgTIRI • 

*******«***«*«* 
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Chart GB* 



SDMODFI: 



GET Macro With Truncaticn (2 cf 2) 



♦»*♦ 

♦ ♦ 

♦ A3 ♦ 

♦ * 



* SDMODFI * 

* WMT * 

* SOBBOOTINE ♦ 



* SVC ♦ 

HETETf X.. 
♦ UlAE * 



* * SVC 7 * ♦ 

* * «R1T * * 

* *lf KEQOIBEE* * 

* * * * 

**i^i^:tif *********** 



YES 



END 


*, 


YES 




.♦ FEOVD *. 




OF FILE 




*. . 






X*. = YES .* 






* 








*. ♦DU .* 




**. .♦ 










♦ . .♦ 




*. .♦ 










♦. . ♦ 




* NO 










* YES 




X 














.*. 








IJGFCHCK X 




D1 *. 










:lf*J}2******* 




. * *, 










* RESET EOF * 




EREOPl 


* 


NO 






* SWITCH AND * 




SPICIPIID 




*. . . 






* SIT FECVD *. 




♦ D4 


* 








* SWITCH ♦ 




*. .* 










*IP BEQUIBFD* 




♦. .* 






i 




X 


* YES 




*♦♦* 




♦♦♦♦♦ 






♦ 




* 




*GA ♦ 






* 


K3 


* 




* K2* 






* 




* 




* ♦ 






♦ *♦* 




* 


.1. 

El *. 










IJGFEXTN 










ifif***-z2********** 




,*RECOBD ♦ 










* * 




FOUND OB 


*. 


NO 






* GET ADDBESS * 




BSEB BBROB 


* 


*. . 






X* OF USER EIAE * 
♦ EBHCB ROUTINE * 




. BOUTIN 1 




" 


" 




♦.SPEC .* 










♦ * 




*. .* 










ti**************** 


X 


♦ TIS 












♦ *♦♦ 
* * 

I « : 

**♦♦ 



EBBEXT 

SPECIFIED 

*D« 



UGFRFT .♦. 

B3 *. 
.♦ DATA *. 
♦ CHICK 

OB UNBECOV 
*. I/O 
♦.EBBCB.* 
*. .♦ 
* NC 



♦ SVC 5C * 

♦ CANCEL ♦ 

♦ ♦ 



**** 

* * 

*G3* 

***♦ 



*D4 
SEFIODFI HACBO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



****}iH^******iti* 

* SDMODFI * 

* GET LENGTH * 

* SUBROUTINE * 



IJGFUNIO 


*. 
*. 
*. 






.♦ UNRBCOV 
*. I/O ERBOH 


* 


YES 
*..X 



.* WLR *. 

ROUTINE 

♦.SPECIFIED.* 



♦ ♦ 

♦ GET ADDRESS ♦ 

♦ OF USER NLR ♦ 

♦ ERROR ROUTINE ♦ 

♦ * 



*^:it:^i^liQ2********** 

♦ * 

♦ GET ADDRESS ♦ 

♦ OP USER READ ♦ 

♦ ERRCB ROUTINE ♦ 

♦ * 

**♦♦ 



*♦*♦ 

IJGFRDEH 

♦ * 

♦ GET PROPER ♦ 

♦ I/O ARIA ♦ 

♦ liEDRESS ♦ 



*ititi*i^j2********** 

♦ ♦ IBANCH ♦ ♦ 

♦ ♦ TO USER ♦ ♦ 

♦ ♦ EREOE ♦ * 
BCUTIHE 



* ♦ 



♦ * 



:|.**4<4<3>4*4 4 4*:«<**** 



♦ ♦*♦ 

♦ ♦ 

♦ G3 *.X 



*♦♦♦ 
IJGFSKIP X 

♦♦GB******* 
♦ ♦ 

♦ SET SKIP ♦ 
♦ SNITCH CK ♦ 

♦ IF BECUIBID ♦ 



♦ SVC ♦ 
BEAD CCUNT 
♦ NEXT RECORD ♦ 



♦ * * * 

♦ ♦ SVC 7 * * 

♦ ♦ NAIT ♦ ♦ 

♦ *IF BEQDIEED* * 

♦ * ♦ * 



♦ ♦ 
« K3 ♦ 

♦ * 
♦♦** 



♦ BETUEN TC ♦ 

♦ CALLING ♦ 

♦ BCUTINE ♦ 

iHHIf:HHHHHt*41^*itiitf 



♦ SIT SIARCH ♦ 
♦ARGUMENT BICOBC+ 

♦ NUMBER TC 1!EB0 * 

♦ * 



***Qti************ 

* SVC * 

READ 
♦ COUNT ♦ 

:ti****i^*********** 



♦IJGFNAIT GB^ 
*-.♦_♦.♦_*_♦_♦-.*_♦ 

♦ WAIT AND TEST ♦ 

♦ FOR ERRORS * 

♦ * 



****JH**:f ****** 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE * 
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Chart GD. 



SEMCDFO: 



PUT Macro With Truncation 



* SDHODFO * 

* PDT HACaO * 

* THDHCATICW * 



♦ CH ♦.X 



IJGEPOI X 

♦ INITIALIZE * 

♦ ALL ARIAS ♦ 

♦ IF FIRST ♦ 

♦ TIME THROUGH ♦ 

♦ AFTER OPEN * 



YES .♦ WAS ♦. 
...*.END OF VOLOHE.* 
*. FORCED .* 
♦ . .♦ 
X ♦. .♦ 
**** * MO 

♦ B3 * * . 

♦ * D1 ♦.X. 

IJ6FS1i02 
IJGEDECR X 

* * 
♦MOVE RECORD TO ♦ 

* OOTPDT AREA ♦ 

* IF REQUIHID * 



* CALCULATE ♦ 

* HEW RECORD * 

* SIZE ANI * 

* I/O AREA * 

* ADDRESS * 



**** 

♦ * . 

♦ HI ♦.X. 

♦ * . 
♦ *♦♦ 

IJGEIORO X 

* * 

* LOAD lOREG * 

* HITH I/O ♦ 

* AREA ADDRESS * 

♦ * 



* RETURM TO * 

* PHOBLEH * 

* PROGRAM * 



****A2********* 

* SDHODFO * 

* PUT MACRO ♦ 

* WRITE ROUTINE * 



IJGECALT 
IJGECALF X 



4i«*4<«*«:<t4i««4i«*4i*4i 



IJGECALP 

* INITIALIZE ♦ 

* TC CHICK ♦ 

* CCHH OF ♦ 

* SEARCH ♦ 

* ARGUMENT ♦ 



IJGELOOP X 

♦ GO THROUGH * 

♦ SEARCH ARG. * 
♦UNTIL HECUIRID ♦ 

♦ VALUE IS ♦ 

♦ FOUND * 



♦ UPDATE AND ♦ 

♦ STORE SIHRCH * 

♦ ARGUMENT ♦ 

♦ « 



IJGEEOFS 
IJGEEFFL X 

♦ * 

♦ COMPUTE ♦ 

♦ BLOCK LENGTH ♦ 

♦ IF REQUIRED ♦ 



♦ CALCULATE NO. ♦ 

♦ OF BYTES LEFT ♦ 

♦ IP REQUIRED ♦ 



IJGEBDFF 

«3|l*«*]]2*^* ♦♦♦♦♦♦♦ 

♦IJGENAIT GD^ 

♦ WAIT AND TEST * 

♦ FOE ERRORS ♦ 

♦ IF REQUIRED ♦ 



A3 ♦. 




.♦END OF ♦. 




.♦ FILE CB ♦. 




♦.PARTIAL BLOCK 


* 


♦. SWITCH .* 




♦. CN .♦ 




♦ . .♦ 




♦ KC 




♦ ♦♦♦ 




♦ ♦ . 




♦ B3 ♦.X. 




♦ ♦ . 




***♦ 




IJGEEXTN X 




iii*i^-iHt-Q2********** 


* * * 


* 


♦ ♦ SVC 2 ♦ 


* 


♦ ♦ FETCH ♦ 


* 


♦ ♦ $$BOPEN ♦ 


* 



%«*4*««4t4>4<**«««** 



♦ FILE ♦. YES 
ASSIGNED TO ...... 

♦. IGNORE .♦ 



****AU^^ ♦♦♦♦♦♦♦ 

♦ SVC 9 ♦ 
.1* RETURN TO ♦ 

♦ B-TRANSIENT ♦ 



♦sa 

SDHODFO MICRO 
PARAMETER OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMBLY LISTING. 



♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE ♦ 



♦ SDMODFC ♦ 

♦ PUT MICRO ♦ 

♦ WITT ROUTINE ♦ 



IJG WRIT X 

♦ * ♦ ♦ 

♦ ♦ SVC 7 ♦ » 

♦ ♦ WATT ♦ ♦ 

♦ ♦!? RT!QUIBID^ ♦ 

♦ * * * 
*«*«4**«4444 4*)»4« 



X 

.♦. 

C5 ♦. 

.♦ ♦. 

FRBCPT 

SPECIFIED 

♦BU 



*♦♦♦ 

* HI ♦ 

* ♦ 
♦ ♦** 



IJGEENCY X 

♦ UPIATE BISK ♦ 

♦ ADDRESS AND ♦ 

♦ ADD ONE ♦ 

♦ TC RECORD ♦ 

♦ NUMBER ♦ 



.♦ EXTENT ♦. NO 
♦. UPPER LIMIT .♦... 
♦.EXCEEDED .♦ 



♦ UPDATE 5ICCRD ♦ 

♦ NUMBER AND ♦ 
♦ARIA ADDRESSES ♦ 

♦ « 



♦ EXCHANGE I/O ♦ 
♦AREJ AEEEESSES ♦ 

♦ IN WRITE CCW ♦ 

♦ ♦ 



♦ SVC ♦ 
WRITE 
♦ BLCCK ♦ 



♦lOGEWAIT GD^ 

♦_♦_♦_*-♦-♦_♦«♦_♦ 

♦ WAIT AND TEST ♦ 

♦ FOB EBTCRS ♦ 

♦ IF BECDIRED ♦ 



♦ ADDRESSES AND ♦ 

♦ RESET rUTA ♦ 

♦ LENGTH BUCKET ♦ 

♦ TC ZERO ♦ 



* * 
RESIT 

REQUIRED 
SWITCHES 

* * 



♦ ♦ 

♦ GIT END OF ♦ 

♦ I/O ARER ♦ 

♦ ADDRESS * 

♦ ♦ 



♦ ♦ 

♦ SET DATA AREA ♦ 

♦ ADDRESS IN ♦ 

♦ DEBLOCKER ♦ 

♦ * 



IJG UNIO .♦. 

D5 ♦. 

.♦ CITJ ♦. 

NO .♦ CHECK CB ♦. 

X.. + .r)NRICCVEBIIELI.+ 

♦. I/O .* 

♦.IRROB,^ 



♦ CIT US IB ♦ 

♦ ERROR ROOTINI ♦ 

♦ RDDR5SS ♦ 

♦ * 



*1|>4>4*G54<4*««**9»«4' 

♦ ♦ ♦ * 

♦ ♦ ERRNCH ♦ ♦ 

♦ ♦ TO USER * ♦ 

♦ ♦ ERROR ♦ ♦ 

♦ ♦ ROUTINE 4 ♦ 
****** *****«««**« 



4**4Ha^+4*****4 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE ♦ 



ERET 
CPTICN 

. RETRH 



44 4J5444 4444 44444 

♦ SVC 4 
RETRY 
* WT^TTl 4 

)»:(<4*4*4t4*4**4>*igc4* 



4444Kt)4^4444444 

♦ RETURN TO ♦ 
.X* CLOSE 4 

♦ ROUTINE ♦ 
**«***«««4>**«*4< 



4**4 
4 4 

♦ A3 ♦ 

4 4 

44*4 
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chart GF. SDMCDFO: PUT Macro Without Truncation 



♦ SDHODIO ♦ 

♦ POT HICBO ♦ 

♦ HC TBOHCITIOH • 



* IHITtALIZB • 

• COUNT FIELDS « 
« IF BBQQIRSD * 

♦ ♦ 



* SDaODFO * 

* POT HACBO • 

* EXCHA1I6E BOOT ♦ 



IJ6DBXCH X 

* EXCHANGE I/O * 

* ABBAS, OPDATB ♦ 
« AND STOBE * 

* BBCCBD NOHBER * 



* StHCDIC ♦ 

* POT BACBO * 
♦BOFFER BCOTIHE ♦ 



♦ E3 ♦.X 



*♦** 
IJ60B0FF X 

♦IJGDilAlT GD* 

....* WAIT AND TEST ♦X. 
♦ FOB EBJCfiS ♦ 



***** 
♦6E ♦ 
* G3* 



CI ♦. 


«**«*<;;2*********<<' 


.♦ ♦. 


♦ GET PROP B ♦ 


*. FORCED .♦ 


* KEI AND E TA * 


* LENGTH IN * 


♦ I/O ARE * 

* CCONT FI ID * 


♦. .* 


*. .* X 


*********** ***** 


* HO «*•* 




**** . * * 




♦ ♦ . ♦ cn ♦ 




♦ Dl ♦.X. ♦ ♦ 




* * . ***« 




•*♦♦ 




JIKJm.5........ " 


GDNROT X 


««*)|i«n24t«**«4i**4c* 



♦ GET RBQOIRED ♦ 
♦NOHBER OF BYTES* 

* AND ADDRESSES * 

***************** 



HOVE RECORD * 



**iti***m********iti0 



IJGDBLKR X 

*****f^********** 

* GET BLOCKING ♦ 

♦ CONSTANT AND * 



************i^**** 



SEl SEABCB 

* ABGOHENT « 

♦ BOCKBT IN ♦ 

♦ DTNAHIC BISK * 

* FIEL ADDBESS * 
***************** 



*****22******f*** 

* * 

* SATE AND SET * 

* ADDRESSES * 

* IF BEQOIRID ♦ 

* ♦ 

*i^******if*H*i^**** 



***f2************ 



***************** 



G1 *4 

.♦ ♦ 

* EHD 

OF BLOCK 



♦*♦♦ 

♦ ♦ 

♦ HI *.X 



IJ6DIOB0 X 

*1f***^-\***i^****iHilL 



*6ET LONER BEAD ♦ 

X* LIHITS AND ♦ 

* CCHH CCONTIB ♦ 

4> * 



IJGDLOOP X 

*****ji^********** 

* GO THBOOGB ♦ 

* SEABCB ABG. * 
♦ONTIL BECOIRED * 

♦ VALOE IS * 

♦ FCOND ♦ 
***************** 



UGDDONE X 

*****-gJ********** 



***************** 



F3 ♦. 

.* *. 

* PARTIAL *. 

BLOCK 
♦.SNITCH ON.* 



**** 

* * 

♦ CM ♦ 

*♦♦♦ 

.x! 



♦ ♦ SVC 2 * « 

♦ * FETCH * » 

* ♦ ttBOFBN ♦ ♦ 

* * * * 
***************** 



.* PILE ♦ 
. ASSIGNED TO 
♦. IGHOIB .♦ 



♦ HI ♦ 

* * 
**** 



♦ b3 ♦ 

♦ ♦ 
**** 



***************** 



****a ■\********* 

♦ RETDRN 10 ♦ 

♦ PBOBLEN ♦ 

♦ PROGRAH ♦ 
*************** 



*****^2********** 
♦IJGDBAIT GD* 

*^*^*-*j.*^*»*^*^* 

* I EST FOR ♦ 

* ERRORS * 
» ♦ 
***************** 



* NO 




**** 

* i 
**** 








IJGDSN03 .*. 






F4 *. 






. * *. 






.* BND CP * 


YES 


*, FILE SNITCH 


♦ 




*. ON .* 






*. .* 






*. ,* 




i 


* NO 




**** 

* 








* ?2 








♦ 1 








*♦♦* 


X 






*****QH********i 


** 




*IJGDNAIT GD* 




*>«_«-«. «.4i.4>-*. 


■ * 




♦ WAIT ANt TEST 


* 




* nKl 


mn^ 


* 





* HI * 

**** 



****J2********* 

* SVC 2 * 

* RETORN TO * 

* $JE0SDC1 * 
*************** 



****JH********* 

* HETOBN TO * 

* CLOSE * 

* T^OOTIN^ * 
*************** 
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Chart GH. SDMCDFU: GET Macro With Truncation (2 cf 3) 



♦ * 

♦ »3 * 

♦ ♦ 
♦ **♦ 



* AU * 



♦ * 

♦ A5 ♦ 

♦ ♦ 



1Hitiin,x^ ********* 

♦ SDHODFU * 

♦ URITEI * 

♦ SOBRODTIBE * 
*********i^***** 



IJ66WST1 X 

*imf^f*2y********** 

* INITIALIZE ♦ 

* READ/WRITE * 

* CCII AHE * 

* SAVE SIARCH * 

* ARGUHEHI ♦ 
***************** 



X 

.*. 
CI ♦. 



***#A2********* 

♦ SDBODPD * 

♦ URITI * 

♦ SUEROOTINE * 



TWO *. NO 
I/O AREAS .*.., 



♦♦♦♦ 

♦ ♦ 

♦ A5 * 

♦ ♦ 
**** 



UGGHDWR 
IJGGSKIP X 

**f^H******* 
* ♦ 

* SET SKIP 
* SHITCB ON 

* IF REQDIiRED 



TJGGTST'? X 

4c>|t4>4<*A5*4<*4*44<4'4>4> 

* ♦S^C 36 IFTE* ♦ 

* ♦TiACK HELI * ♦ 

* * FOT? EOF * * 

* *l5^CCTiD lEAE* * 

* ♦II' BICDIBID* ♦ 



****^,Q2********** 
♦IJGGPREE GJ* 

X* ♦ 

♦ FREE TRACK * 

* * 
***iH**1^*iH*****ili*f 



i^1fli^******* 

* HODIPT ♦ 
PUT SilTCH 

AND ALL 
REQOIRBI) 

* CC1I»S * 
*^i**it^***i^^^:^i 



i^****'^^*********if 

♦ * 

♦ INITIALIZE ♦ 

♦ VERIFY ♦ 

♦ CCW * 

♦ ♦ 

** :|i« * * 41 :» * * « * 4< « * 4»t> 



***f\*****i),****** 

* SVC * 

NRITE 
♦ BLOCK ♦ 

************iti**** 



*it:iH)fQ2********* 

♦ RETURN TO ♦ 

♦ CALLING * 

♦ RODTINE * 

***1f:t**it*it**i),*il, 



*E2 
SDBODFD HACRO 
PARAHETEE OPTION - 
DECISION DOES NOT 
APPEAR IN AN 
ASSEMILT LISTING. 



**itt:^1 2*** ****** 

* SDMODFD * 

* SAIT * 

* SDEROUTINE ♦ 

**i)t**********:ii:^ 



ERRCPT 
SPECIFIED 

*E2 



YES .♦ DSEB *. 

...♦.ERROR RODTINE. 

♦.SPECIFIEE.+ 



.♦ NBONG ♦. NO 
♦.LENGTH RECORD. ♦... 
♦. ERECR .♦ 



♦ GET CODNT OF ♦ 

♦ FIRST RECORD * 

♦ IF RT5QDIRED * 
i^if*************** 



1/0 IT^IIS 


♦ . 


.??.. 


*. .♦ 
♦. .♦ 
♦ YES 




♦ ♦ 

* ♦ 



FEOVD 
YES 

*E2 



IJGGDATR X 
IJGGOSER .♦. 

E3 



* * 



* * 



♦ ♦ SVC 7 * ♦ 

♦ ♦ WAIT ♦ * 

♦ ♦IP HEQDIRED+ ♦ 

♦ * ♦ * 



IJ66KETH 

**fl-\*****'** 

♦ HODIFY * 
♦ REOOIREI 

* INSTROCTIONS, 
♦SET OR RESET 

* SHITCBES * 
*********** 



♦ SET CLOSE ♦ 
♦AND FIRST TIME 

♦ SNITCH OFF ♦ 



RETURN 
TO CLOSE 
. ROUTINE 



*********** 



****f^ -[********* 

♦ SVC 9 ♦ 

♦ RETURN TO ♦ 

♦ $fB0SDC1 ♦ 
sit************** 



IJGGSNOF 

i^****J2********** 
♦IJG6FREE GJ^ 
♦-*_*-♦-.*-*-*_*_* 

♦ FREE TRACK ♦ 

♦ IF REQUIRED ♦ 

***************** 



i^**^^^ff^2******'*'*** 
♦IJGGEXTN GJ^ 
*-*_♦-♦_♦_♦_*-*_* 

♦ FETCH NEN ♦ 

♦ EXTENT ♦ 

♦ ♦ 
***************** 



BRANCH 

♦ ♦ TO USEE ♦ ♦ 

♦ ♦ EBECR ♦ ♦ 

♦ ♦ ROUTINE ♦ ♦ 
***************** 



ERET 
OPTION 
. BETBY 



♦ hH ♦.X 



**** 
lOGGCHCK 

**^lt******* 
♦ RESET ♦ 

♦ EOF AND SET ♦ 
..X+ EOV SilTCH ♦ 

♦ IF REQUIRED ♦ 



X 

***** 
♦GJ ♦ 

* ^2^ 



*_*«*-*-♦_♦-.*-*_ 

♦ * 

♦ TRT^E TRACK ♦ 

♦ ♦ 
***************** 



PUT 

CCHWANt 
ISSUED 



**♦♦ 
* * 

!■ E4 ♦ 
t * 

♦*** 



*********** 



X 

***** 

♦ GG ♦ 

♦ G3+ 



**]^5******* 



*********** 

♦ *** 
* 
.X. 
*♦** 



* V 



****1»5********* 

♦ BETURN TC * 

♦ CALLING ♦ 

♦ i^OUTINI ♦ 
*************** 



♦ AU ♦ 

* * 
**** 

X 
IJGGRET .♦. 

H3 ♦. 
.♦ DATA ♦. ****H(t********* 

.♦ CHECK OR ♦. NO ♦ SVC 50 ♦ 

♦ . UNRECOVERABLE. ♦ X+ CAHCIL ♦ 

♦. I/C ,♦ ♦ * 

♦.ERROR.* *************** 

♦ . .♦ 
♦ YES 



♦ SVC 

RETRY I/O 
♦ OPERATION ♦ 

***************** 



**** 
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Chart GK. SDMODFU: Without Tr\3ncation, GET Macro and CLOSE Routine (1 of 3) 



****A1 ♦♦**♦*♦** 

* SDHODFD * 

* GIT HiCHO ♦ 

* NO TEDNCAIION * 



♦ **♦ 

* B1 *.X 



FIRST 
ENTEl 
AFTEH 
OPEN 



E2 *. 
.♦ HAS *. 
.♦ END 
. X*. OF VOLDME 
*. FOBCED . 



IJGBDEBL X 

♦GET DEBLOCKING * 

* CONSTANT AND * 

* INCBEASE I/O ♦ 
*ABEA AEDBESS BY* 

* EECOBD SIZE * 
^^^i*** *********** 



D1 *. 

.* END *. 

.* OF BLOCK * 

.OB BETOEN TO 

♦. CLOSE .* 

*. BTN .* 

*. . ♦ 



♦ ♦♦* 



**** 



* NO 



♦IJGBNXRC GM* 

* FIND DATA ♦. 

* LENGTH OF ♦ 

* EECOBD 1 * 

♦ ♦♦* 

* D2 *... 

* ♦ . 
***♦ 

IJGBTEST X 

* UGBUBTI GM* 

* _♦_♦_«_♦-.♦_♦_*_* 

. ..X* WRITE * 

* BLOCK ♦ 



4i 3)1 4<« *:»**** It^'**^'* * 



* E2 ♦.X 



iti^i^^^^^i2^ ********** 

* SAVE NEW ABEA * 

* ADDRESS AND, * 

* IF EEQUIRED, * 

* GET WORK ♦ 

* ABEA ADDRESS * 



♦IJ6BGENH GL* 

♦ _♦_*_♦-.*-.*-.*_♦_♦ 

♦ MOVE BECOBE * 

♦ TC WORK ABEA * 



* BETDBN TO * 
♦PBCBLEH PBCGBAM* 

* * 



♦ *** 

IJGBRD1 X 

««««4C £2* ********* 
*IJGBEXTN GM* 

* _*_*_♦_♦-.♦-.♦.♦-♦ 

* FETCH NEXT * 

* EXTENT * 

* IF EEQOIBED * 



IJGBRELA X 

])i«*«:(cF2**** ****** 

*IJGBBEAD GK* 

♦ READ * 

♦ DATA * 

♦ ♦ 



IJGBFACT X 

«*««4<g2** ******** 

* GET BLOCK * 

* LIHITS, GET * 

* AND STORE I/O * 

* AREA ADDBESS * 

* FECM CCH * 
*iti*«*44< 41* ******** 



iit4<4<«*H2** ******** 
*IJGBWBT GM* 



i|i****A *********** 

* EXCHANGE * 

* I/O ABEA * 

* ADDRESSES IN * 

* EEAE/WEITE * 

* CCW * 

4i* « * 4»t> 4> :•< * 4 * * * « * i«< 4c 



**iHf:i^T^2********** 

♦IJGBWRIT GM* 
♦-.♦_♦-♦-♦.♦-♦-.*-* 

♦ WRITE * 

♦ BECCFD * 

♦ * 

**:|t4:»4<*4**4 4*i|<4c4>* 



IJGBBD3 X 

■Oi4(*44iC3********** 

* SAVE CONTENT * 

* OF SEARCH * 

* ABGOHENT * 

* SOCKET FCF * 

* WBITE BTN * 



IJGBLOOP 

*4t4<«4>D3********** 

* GET BECDIBED * 
*chabact1b FBCM * 
*SEABCH ARGOMENT* 

* CCHHE CCNTBCL * 

* FIELD * 



IJGBDCNE X 

^*:t:-i^i),1^2********** 

* DFEATE * 

* SEARCH ABG * 

* CHAB EY 1 * 

* AND BESTCBE * 

* IN SEABCH ABG * 

**4«444«4*«*4*«*4t 



]|c)t<**A4********* 

* SDMODFU * 

* REAE * 

* SOBBOOTTNE * 



IJGBBEAI 

4t4<Qlt*444<«4i«> 

* MODIFY * 

* BEAD/WRITE 
* CCW ^HD SET 

* SEARCH AHG 

* BUCKET * 



TRACK 

HOLD 

.SPECIFIED. 



***C5 ************ 

* SVC C * 
.X BEHE 

* DATA * 



IJGBHOLE X 

SVC 35 

* READ * 

EECOBD AND 

* HOLD * 

TRACK 

44***4*44«*****4'4< 



* BETDBN TO * 

* CALLING * 

* BODTINE * 
«444*«***4**4<4>* 



.*. IJGBSR03 

F3 *. ♦♦***FH********** 

.*SEABCH *, *IJGEBEAD GK* 

.*ABG GT XTNT*. NO ♦-♦-*_♦_*-♦-♦-♦-♦ 

*UPPEB LIMIT OB.* X* BEAD NEXT *. 

*. 2 I/C .* * BLOCK * 

*.ABEJS.* * * 

*. .♦ ♦♦♦♦♦♦♦♦**»****** 
* YES 



EXTENT 

SWITCH 

CN 



**** 
*GB 1 
* D2 



*.X 



»4G4******* 
♦SET EXTENT * 

* SWITCH * 

ON * 

* IF BEQDIRED * 

444>*«3|'***** 

Ix 



*♦»♦ 
IJGBEXT X 

**H3******* 
*SET EXTENT * 
* ANE FIRST 



* WBITE 


* 




* ENTBY AFTIH 


* 








*. SWITCH 


♦ EECOBD 


* 




* CPEN SWITCH * 








*. ON 


* 


* 




* OFF * 










*. .* 


4c4<4<****44*«*4t*«** 




4*4*44444«4 










*. .* 


















* NO 








♦ *♦* * 


















* * 


















* J3 *.X. 


















* * . 












X 






♦ ♦** 


















X 








IJGBG^''"D T 


J2' '*. 






iln^L*i^i^J 2* ********* 








**J4******* 


.* *. 






*IJGEEXT!1 G 


B* 








-•= SET FIRST 


.♦ TOF * 







♦_♦.♦_♦«♦_♦_♦-♦ 










♦ ENTRY 


*- SWITCH ON 


*. 




* FETCH NEXT 










* AFTER OPEN 


*. .* 






* EXTENT 










* SWITCH 


*. .* 






♦ 










♦ ON 


*. .* 




X 


«*«*** *********** 








*********** 


* YES 




***** 

*GH * 

* F5* 

* * 

* 


I 










X 

**** 


IJQl 


EXTN 


X 










* . * 


IJGBAED2 X 






.*. 










*, El * 


4c4**4|;2 ********** 




K3 ♦. 










* , * 


* COMPUTE END 






.*FECVD =*. 










**** 


*0F SHCBT ELCCK 






.* YES AND * 


. WO 








* ADEESSS AND 






♦.FECVD SWITCH 


. *. 










* SI3E OF 






*. CN .* 












* SHCBT BLOCK 






*. .* 












4c4«*4c4 44c4c**«44*4 






♦. . * 






X 












* YES 






(.*♦* 














♦ 




* 




* 






* 




♦ 


B1 


♦ 




X 






X 




* 




♦ 




**** 






♦*** 






**♦♦ 




* * 






* * 












* A3 * 






* E2 ♦ 












♦ * 






* » 












♦ *** 






**** 













**g5*3|t*«*** 

* « 
BESET 
SKI? 

SWITCH 

* * 
***4i******* 



*4jc;*4*4444c 

* S^T * 

* *IBST * 
* ENTBY AFTER * 

* OPEN SWITCH * 

* CN * 

*4>***4***3|t9|l 
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Chart GM, SDMODFU: 



Without Truncation, GET Macro and CLOSE Routine (3 cf 3) 



IJGBBDWE 




^'^UUl,^.h*.***** 




* BIFSBENCES 


* * * ♦ 


TC GBftl: 


* * SVC 36 * ♦ 


GLB4, GLF3 


* * FBEE * * 


GtHU, GLK3 


♦ * TRACK * * 




♦ *IF REQUIPID* ♦ 







♦IJGBNXRC GM* 

♦ _♦.*_♦-.#-.♦_«_♦«♦ 

* READ CODNT ♦ 

* RECORD 1 * 

♦ IF HEQDIREE * 

«:t.:tc««4i «*;!«« «:(c««*9(c 



4ti(t«4c£2**'t<*=<<4<**)t< 

* EETDRN * 

* TO CALLING ♦X. 

* BCDTINE * 
4c4>«4c*««4c**«««4c« 



♦ EETORM ♦ 
. X* TO CALLIMG * 

* BODTINE * 



*:(c«:t,;^3j)i4,:tc««:tci{(«« 

* SDHOEFD * 

* IEEE * 

* SDEEODTINE * 



IJGBFREE .♦. 

B3 ♦. 
.* TRACK ♦. 
NO .*HOLD SEEC. *. 
....*. CE EEAD 

♦.OPEBATION.* 



. lES * SET A«D * 

.* X*HESET REQUIRED 

X ♦ SWITCHES ♦ 



♦ ♦*« 

* ♦ 

* D2 ♦ 



* P5 * 

* * 
**** 



***** 
♦GL * 
* E3* 



IJGBTST2 X 

*****pi ********** 

♦IJGBFREE GH* 
*«#-.*_*«*-.*_*-.*_* 

* FREE * 

* TRACK * 

* IF REQUIRED * 
******** j^******** 



**]»**«***** 



X 

***** 
*GK * 

* H3* 



*****Q3 4 4 ******** 

* * * * 

* * SVC 36 * * 

* * jBpj * * 

* * TRACK * * 

* * * * 

***44i*««4:»******* 



****];)3*:»***«*** 

♦ EETDEN * 

♦ TC CALLING * 

♦ BCBTINE * 

***!«<*********** 



*****£39»44**4**** 

*IJGEFEEE GM* 

♦ _*_*-*-.*.*_*«*_* 

* FREE *X. 

* TRACK ♦ 

♦ * 
****:»*4444*4***** 



***4p3444****** 

* RETDEN * 

* TO CALLING * 

* BODTINE * 
*************** 



****C(* ♦***♦**** 

* SDHODFO * 

* WRITE * 

* SUBROUTINE * 
*************** 



****l^5***44***4 

* SCMCEFO * 

* START UBITE ♦ 

* SUEEOUTINE ♦ 
*********4****i|. 



laGBWBT X 

*****^ 5*** 4****4* 

* WOVE EATA * 

* LINGTH * 

* TO SAVE ♦ 

* BUCKET ♦ 

* ♦ 
***************** 



lES .* TWO 
....*. 1/0 AREAS 



IJGBWRT1 X 

**Q4******* 

* SET * 

* WRITE 
* COMMAND 

* CODE 

* * 
*********** 



****Q5********* 

* EETURN TO ♦ 

* CALLING ♦ 

* ROUTINE * 
*********4***** 



****^5***4«**** 

* SDMODSU * 

* FETCF * 

* SUBROUTINE * 
***4*********** 



G1 *. 












*. 








****Q3********* 


2 


* 


NO 




* SEMOEFU * 


I/O 
AREAS . 




*. . . , 




* EEAE * 


* 






* SUBROUTINE ♦ 


.* 








*************** 


*. .* 




X 






* YES 




**** 
« * 








X 

.*. 




*♦** 














IJGBHXBC X 


HI *. 








*«***l]3 ********** 


♦ 






****I]2** ******* 


* FIND DATA * 


PUT 


*. 


YES 


* RETURN * 


* LENGTH. SET ♦ 


COMMAND 




* 


X* TO CALLING * 


*SILI ANE CBAIN * 


ISSUED , 


* 




* ROUTINE * 


* BITS. SET TO * 


.* 








* REAE CCUNT * 


*. .* 








******** 


********* 



***** J I ********** 

♦IJGBWRIT GL* 
*-.*-*-*_*_*-,*_*_* 

* WRITE AND * 

* FREE TRACK * 



FEOVD * 


K YES 


= YES 


.*,... 


. * 


.* 




*. .* 


X 


* NO 


***# 




* * 




* D2 * 


X 


* * 


**** 


**** 


* * 




* F5 * 





*****J34 4****««*4 

* *SVC EEAE * * 

* * COUNT ANE ♦ * 

* * SVC 7 * * 

* * WAIT IF * * 

* * REQUIREE * * 
******$44*4 ****** 



****;^3********* 

* BETUEH TC * 

* CALLING * 

* ECUTINE * 
*************** 



*****}? 1)** ******** 

* * 

* RESTORE * 

* BLOCK * 

* LENGTH ♦ 

* * 
***************** 



**«**Q1) *«**»**««* 

*NOP READ COUNT * 

* FIELD AND SET * 

* CHAIN AND ♦ 

* SILI BITS * 

* IF REQUIBED * 
*****»**$««****** 



*****I]4** ******** 

* * * * 

* * SVG * * 

* ♦ WRIT^ * * 

* * BLOCK * * 

* * * * 
***************** 



***** 
*GL * 
* J1* 



**** 
*GK * 

* 02 

* ♦ 

* *** 



**F5**4**** 

*SET END CF ♦ 

*DTF INDICATOR* 

* FOB OPEN * 

ROUTINE 



*****(35*****4**** 

* GET ♦ 

* AEERESS * 

* OF DTF ♦ 

* TABLE * 

* * 
******4*44 444*»** 



****4fl5***4*4«4** 

* * * ♦ 

* * SVC 2 * * 

* * FETCH * * 

* * ttECFEN * ♦ 

* * ♦ ♦ 
44 44***44*44***4* 



**«*J5***4**«** 

* RETURN ♦ 

* TO CALLING * 

* EOUTINF * 
444*******4***4 
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Chart HA. SEMCDVI: GET Macro (1 cf 3) 



*♦♦♦ 

* A3 * 

♦ ♦ 



* SDB0D7I * 

* GET HACBO ♦ 

* * 



♦ *♦♦ 

* * 

♦ B1 * 



IJGSGaOO 

* SET * 
. lES ♦ AUr BESET 
.* X* ALL BEQQIRED 

* SSITCHES 

♦ * 



BEFEBENCES 
TO HAC1: 
HBE4, HB63 
HBK5 



* FIBST 

EHTBT ISTO 
*. BOUTIN E . 



SET BEQOIBED* 
♦BITS ABD SW. * 
*AHD BESET SBCH 
*AB6. BCE AND * 

*EECOBD NO. ♦ 



♦IJGSG700 HC* 

*-♦_*_»-.♦_♦_♦-.♦_♦ 

* INITIALIZE * 

* LENGTH AND ♦ 

* SEGMENT PTB * 



♦ B1 * 
**♦♦ 



*♦♦♦ 

* * 

* E2 * 

* * 



IJGTJGBSB X 

♦ ***i»A3********** 

♦ GET AEEEESS * 

♦ OF DSEB * 

♦ EfBCB * 

♦ BCDIINI * 

♦ IF BEQUIBED * 



* ABIA ANE ♦ 

* EA5AH1TEE ♦ 

* LIST * 

* ADDBESSES ♦ 



* * EBANCH * ♦ 

* * TC USEB * * 

* ♦ IBBOE * ♦ 

* * BCDTINE ♦ ♦ 

* * * ♦ 



♦IJGVG320 HC* 
♦-.♦-♦.♦.♦-.♦»♦_♦-.♦ 

* BEAE COONT * 

* NEXT EECOBD ♦ 



UGVOTO X 








* GET BEQOIBED * 

♦ ADDBESSES * 






* AND SIZES ♦ 




* FOB BIAD * 




* DATA CC« * 




:»)|>4>*4>*****4***!t>4>4> 




**** ', 




♦ ♦ . 




* B« ♦.X. 




* * 




**♦♦ X 


IJGVG13C 


IJG7080 .*. 


IJGVG131 


Bt» *. 


^i-BS******* 


.* *. 


* MVSf.1 * 


.* END CF ♦. lis 


* SNITCP ♦ 


*. BLOCK ...... 


. . . .X* ■''0 BIAD *. . . . 


*. BEACHED .* 


* BLOCK ♦ 


*. .* 


*2i*iii2J5ir i 


*. .* 


* NO 


♦**♦ 




* * 




♦ F1* 




* * 




♦ *♦♦ 




TJGVGinO 


. *. 


I0GVG120 


c^ *. 


it*Q5******* 


.* *. 


* SET CN * 


.* «OBK ♦. NO 


*N1CESSSBT TO * 


♦. ABEA .*.,.. 


....X* BT^AE NF<i * 


♦.SPECIFIED.* 


X *BECCBE SNITCF* 


♦. .* 


: *i;j|§2J5ir 


*. . * 


* YES 


♦*** 



IJGVG2in X 

* GET ADDBESS * 

* OV WOBK ABIA * 

* INPUT ABEA, ♦ 

* NUMBEB OF * 

* BYTES TC HOVE * 



♦ ♦** 

♦ * 

* Jt| * 



* SAVl CLE * 

* INPUT * 

* ABIA * 

* AEEBESS ♦ 

* * 



El ♦. 




«4i«4i*£2*** ******* 






E3' **. 








* "^ * 


**^nntTl^4iHH*it*i(f** 


.* *. 




*IJGVG320 HC* 




.♦ *. 








**** 


*iaGVG250 EE* 


.* HAS END ♦. YES 


♦ _♦«♦-♦-♦-.*_♦«♦_* 


IGN .* EBET *. 


SKIP 






*_♦_#_♦_*-*_*-.♦-* 


♦. OF VOLUHE .♦. 




* BEAE CCONT * 




.*. OPTION 


*. . 








* BEAE EATA * 


*. FOBCID .♦ 




* NEXT BECOBD * 






*. . * 










* BLOCK ♦ 


♦ . .♦ 




* * 






*. .* 










.%.IU5IJSJ5JS«J 


♦. .♦ 


X 


*««4c««Jt.***«%*««4c« 






*. .♦ 




X 






* NO 


***** 








* BEIB 


***♦ 






**4i* 


*HB * 










* 




* 






♦ HB * 


♦ P2* 










* 


F1 


* 






* KB *.X. 


* * 










* 




* 






* * 


* 










**** 






**♦* . IJGVG312 


X 


















IJGVG040 X 




.*. 




IJGVGBET .♦, 










laGSPiio .*. 


^i****; ']*4>***«i|i*«* 




F2 *. 






F3 *. 










r>5 *, 


♦IJGVG250 HB* 




.* ♦. 






.* EATA *. 








****TfH********* 


.♦ ♦. 


♦_♦-♦>♦_♦«♦-♦«♦>♦ 




.* EBROPT *. NO 




.* CHECK CB *. 


NO 






* SVC 50 * 


.* SPINNEE ♦. YES 


..X* BEAD * 




••.. = "" ..•* 


.X 




*.UNBiCCVEBAELE. 


*. . 






X* CANCIL ♦ 
* * 


*. SPICIFIEE ...... 


. * DATA * 










♦ * 




*. .♦ 












*4<«4*4<*«4***4<4'« 


'♦. .♦* * 


********4>*4'**:K«** 




♦. . ♦ 


X 


*. .* 










*. .* X 


**♦* 




* YES 


♦ ♦** 


* YES 










* NC ***** 


4c*«*>|i 






* ♦ 












♦♦♦* . *HB * 


F1 ♦ ♦ . 






* AU * 












*HE * . * A5* 


* G1 *... 






♦ * 












* H2 *.X. * * 


Id**** « 






♦ *♦♦ 












♦ * . ♦ 


*♦*♦ 


















**** . IJGSGttIO 


IJGTG050 X 


IJGSGSKI X 


IJGVGBTB X 










IJGVG11C X 


****«G 1 ♦♦*♦♦*♦**♦ 




4e«q2******* 




^c^-^GB************ 








4«* 4 4G5 *** 4 1* 4* :» :» 4 


* * * * 




* T RN CN ♦ 














* tCAD ICFEG * 


* ♦ SVC 7 * ♦ 




*SPAN ED SKIP * 




* SVC 


* 






* SDHOEVI ♦ 


♦ RITH * 


♦ * BAIT ♦ * 




♦ S GHENT * 




BETEY EIAE 








* MOVE ♦ 


* ^ECCBE * 


* *IF BEQUIBID* * 




* £ ITCH * 




* 


* 






* SUBROUTINE * 


* ADDBESS * 


* * * * 




•i5. miur 












4i4(4!>K4<*>ti*«««4'*4t:4> 


* * 


«4>*«il>««***««4i**4i4c 




i 


n^**************** 










^^^Ic^^^c*********** 


• 

* 






**** 

* * 


* 








* 


* 








* F1 * 




















* * 


X 


















**** 


*♦*♦ 












X 








* * 










* 


.*. 








* G1 ♦ 






IJGSG710 X 




H1 *. 




4i*fl2******* 




* ♦ 








4t4i:|c4c4<{14*«*******4> 


X 


.* *. 




* SET EOV * 




**** 








* GET INPUT AND * 


*«4*q5:tt4'*44'«*«« 


.* END *. YES 


* SI FOE * 












* NOBK-ABEA * 


* RETURN TO * 


*. OP FILE .♦. 




* IF BEQDIEED * 












* ADDRESSES AND * 

* NO. OF EYTES * 


* PBCEtlM * 


♦ . .* 




♦ PROGRAM ♦ 


*. .* 




* * 












* TO BE MOVED * 


iHH^iH^***4****** 


*. .♦ 






X 










4c*«4t«4<*4<**««4<*4<*« 




* NO 






***** 
*HB * 
♦ F2* 

* * 
* 










**** * 

* * . 

* JU *,X. 

* * . 








IJGVG312 










**♦* 




IJGVG060 .*. 














IJGVG220 X 




J1 *. 




**j2******* 












*4>««4>j4*«*«**4(4i4c4> 




.♦ DATA ♦. 




* BESET ♦ 












* MOVE BECOBD * 




.♦ CHECK OB *. YES 


*UNRECOVEBABLE* 












* OB SEGMENT ♦ 




* . UNBECOVEB ABLE . * . 




.X* I/C EBBOB ♦ 
* ODICATOB * 












* WORK ARIA AND ♦ 
*DPDATE POINTER * 




*. EEBOB .♦ 







3|<«*«4li|c«l>*4>3|c 



itl**************** 



IJGVGUNR 

IJGVGWLE 

i^n'***fi^********** 
*GET ADDRESS OF * 

* USER WBONG * 

* LENGTH BECORD *. 

* EBHOR ROUTINE * 

* * 



* A3 * 

♦ *♦♦ 



****ns********* 

* RETURN TO * 

* CALLING * 

* BCUTlKi * 



♦ * 

* E2 * 
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Chart HC. SDMCDVIi GET Macro (3 cf 3) 



♦ SDMODVI ♦ 

♦ BEJE CCOHT * 

♦ SDEBOOTINE ♦ 



IJGVG320 X 

♦ MODIFY ♦ 

♦ RIID DiTA 
* ecu HUH 

* BE*E COUNT 

♦ CCH * 



***li2************ 



m*m********i¥*i^*** 



♦ * * * 

♦ * SVC 7 * ♦ 

♦ * WAIT * ♦ 

♦ ♦!? BEQOIEED* * 

♦ ♦ ♦ ♦ 
HfiH^if ************* 



* BITDHH TO ♦ 

* CALLIBG ♦ 

* HOOTISE * 
in^^^************ 



♦ SDMCEVI * 

♦ BILSE MACBO * 

♦ * 



IJGVG37C X 

i^**^^*c3********** 

* SIT CDEEEHT * 

* AEDBESS CF ♦ 

* I/O ABIA SITH * 

* ETID-OF-ELCCK * 

* AEDBESS ♦ 



♦♦E3******* 

* * 

♦ SET CN 

* SKIP SEGBEKT 

* SilTCH 

* * 
iH^********* 



* BETDBS TC * 

* FBOELEH * 

* CBCGBAR * 
if************** 



♦ SBHOEVI * 

♦ INITIAIIZR * 

♦ StJBBOOTINE * 

*************** 



* IHITIALIZE * 

♦ HECOBD LENGTH * 

♦ TO U BITES * 

* ♦ 



*****jiH********** 

* GET ADDBESS * 

* OP NCBK ♦ 

* ABBA AUD * 

* SET COKTBCt * 

* FIEtE TC ZEBO * 
***************** 



*****^H********** 

* INITIALIZE ♦ 

* POINTEB TC ♦ 

* SEGMENT AND * 

* STOBE IN DTF * 

* TABLE * 
***************** 



****im********* 

* BETOBN TO * 

* CALLING * 

* BOOTINE * 
*************** 
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Chart HE. SDMODVO: 



PUT Macro (2 cf 4) 



***** 














**** 


*BD * 














* * 


♦ D3* 














* A^ * 


♦ * 














* * 


♦ 














**** 


IJGVP290 X 


IJGSP130 .*. 












X 


*****H^'\*********iii 


A2 *. 






**J^zi^****** 






**A4******* 


♦IJGVP440 HE* 


.* *. 






* * 






* TURN ON 


♦ _♦_♦»♦_*_♦-.♦_♦_♦ 


.♦ END ♦. 


YES 




* BESET ENt * 






* SWITCH FOB 


*M07E DATA lEOW ♦ 


..X*. OF .♦ 
*. TRACK .♦ 






X* OF TRACK * 
* SWITCH * 






* TRUNCATION 


♦ WORK AREA TO * 






* OF OUTPUT 


* ODTPOT AREA * 


*. .* 






* * 






* BLOCK 


***************** 


*. .* 
* HO 






**** ', 

* * , 

* E3 *.X. 

* ♦ 

*♦♦* T 






*********** 

xl 










. *. 




IJGSP090 .♦. 




.'IJGSP06 5 X 




E2 ♦. 






E3 *. 






♦♦BU******* 


* SAVE RECOBE * 


.♦ *. 






.* *. 






♦ TURN ON 


♦ADDRESS AND GET* 


.* TRACK ♦. 


YES 




.* OUTPUT *. NO 




* TRACK 


♦REMAINING SPACE* 


*. TRUNCATED .* 






*. AREA FULL .*. 






* TRUNCATION 


* IN ODTPUT * 


*. .* 






*. .* 






* SWITCH 


* AREA * 


*. , ♦ 






*. .♦ 






* 




*. .* 
* NO 






♦. . ♦ 
♦ YES 






*********** 


♦ ♦♦♦ * 
















*HD * 








x! 








* JU *.X. 














X 


* * 














***** 


**** X 








X 






*HD * 


. *. 








. *. 






♦ B3* 


CI *. 


**Q2******* 






C3 ♦. 






* * 


.* *. 


* BESET * 






.♦ *. 






* 


.* SPANNEE *. YES 


*ODTPUT BLOCK * 






.* INE *. NO 




iJGVPogn 


*. SPECIFIED .♦ 


* TRONCATION * 






*. OF BECOEE .*. 








*. .* 


* SHITCH * 






*. .♦ 








*. .* 


*IF REQUIRED* 
*****i***** 






*. .* 








*. .* 






♦. .♦ 




X 




* NO 








♦ YES 


* 


**** 




**** 










*HG * 




*HF * 










* 


El* 




* Di» *.X. 












* * 




* * . 












* 




♦ ♦♦♦ 








! IJGSPOttS 




IJGVP310 X 






IJGSP110 X 








*****D'\********** 


D2* '*. 






**l^2******^ 








* LOAD lOBEG * 


.*5/M0RE *. 
.♦BIiIeS LEFT *. 






♦ RESET ♦ 








* WITH ADDRESS * 


NO 




♦FIEST RECORD * 








* OF AVAILABLE * 


*. IN OUTPUT .* 






* CN VOLUME * 








* ODTPOT AREA * 


*. AREA .♦ 






* SWITCH * 








♦ * 


*. .* 






* * 








*3it*nf******* ****** 


♦ . .* 


X 














♦ YES 
















* 


* 














* A4 


♦ 














* 


* 










I 




♦ *** 










X 


IJGSP140 X 






• 








*****-g'\********i(ft^ 


**22******* 






X 








* LOAD VARELE * 


* * 






****E3********* 








♦WITH LENGTH OF * 


♦TURN ON TRACK* 






♦ BETUIN TC * 








*AVAILABLE SPACE* 


♦ TRUNCATION ♦ 






* PRCELEM * 








* RE AINIHG IN * 


* SWITCH * 






* PROGRAM ♦ 








* TPtJT AREA * 


* * 






*************** 








***************** 


X 

**** 

* * 

♦ B3 * 














X 


* * 














****Y ■}********* 


**** 






****-g2********* 






****f^******* 


♦ RETORN TO * 








* SDMODVO ♦ 






* SDMODVO 


* PROELEH * 








* INCREASE ♦ 






* UPDATE 


* PROGRAM * 








* SUBROUTINE * 






* SUBROUTINE 


*************** 








***it**:^iHt****** 






************* 



****Q'\********* 

* SDMODVO * 

* MOVE DATA * 

* SUBROUTINE * 
*************** 



IJGVP3aO 

*****^-\********** 

* GET ADDRESS ♦ 

* OF OUTPUT * 

* AREA ANE ♦. 

* WORK AREA ♦ 

* * 
***************** 



.IJGVPUSO 

*****Y^2********** 

* GET NUMBER ♦ 

* OF BYTES ♦ 

* TO BE * 

* MOVED * 

* * 
***************** 



IJGBP460 

*****j2********** 

* MCVE ALL * 
♦REQUIRED BLOCKS^ 

♦ CF UP TO 255 ♦ 
♦BYTES EACH AND ♦ 
♦UPDATE POINTERS* 
***************** 



****Y^2********* 

* RETURN TO * 

* CALLING ♦ 

* ROUTINE * 
****H********** 



* ECUALIZE * 

* REGISTERS « 

* FCF CCBEARE ♦ 

* * 
*******iHit******* 



IJGVP570 

****dtii2**** ****** 

* UPEATE ♦ 
♦SEARCH ARGUMENT^ 
♦UNTIL RECUIEED ♦ 

* VALUE IS * 

* FCUND * 
***************** 



I0IGVP580 

*****j2**** ****** 

♦ INCREASE * 

♦ SEARCH AEG * 

♦ CHAR EY 1 ♦ 

♦ ANE STORE * 

♦ ♦ 
***************** 



***iiY^2********* 

♦ BETURN TC * 

♦ CALLING * 

♦ BCUTIHE * 
*************** 



IJGVP550 

*****QH********** 

♦ INITIALIZE ♦ 

♦ TO UPEATE ♦ 
....♦ SEARCH * 

♦ ARGUMENT « 

♦ ♦ 
********* it******* 



****\']*** ****** 

* SDMODVO * 

* W^IT^ BECCBD ♦ 

* StHBOUTTNE * 

**itit*it:t*******:t 



IJGVP3€C 

****itT3t^**1,^***:t** 

♦TJGVPISn HE* 



***************** 



w****c^*** ******* 



♦GET EATA LENGTH* 
♦ »NC SEBFCP * 
♦ARGUMENT BUCKET* 
***************** 



* INCREASE BCD * 

* NO. IN SEARCH * 

* flBG ECKT EY 1 * 
***************** 



*****fC,*** ******* 

♦ SET BECCEE * 

♦ AEEBESS- KEY, * 
♦DATS. AND EIOCK* 

♦ LT^NGTH, AND ♦ 

♦ CCNTBOL IIELE ♦ 
***************** 



*****v^********** 

♦ INCREASE * 

♦ EATA * 

♦ LENGTH * 
EY ONE 



TJGVPieO 

*****QC.*** ******* 

* STOBE CCDNT ♦ 

* ANE AEDBESS * 

* tct; BCSSIELE * 

* BEBEAE ANE ♦ 

* REC?EN * 
***************** 



* SVC 
WRITE 
* BECOBE * 

***************** 



**jc^******* 

* * 
TUBN CN 

SWITCH FOB 
WBTTI 

* * 
*********** 



****^^********* 

* BETUBS * 

* CALLING * 

* ROUTINE * 
*************** 
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Chart HG. SCMCDVO: PUT Macro (a cf 4) 



* * 

* A1 * 

* 4> 

♦ ♦♦♦ 



***** 
*HD * 
♦ HI* 



SESET 

REQUIRED 

SniTCHES 

* * 

*******if*** 



4t«4c4i4es-)*i|i4c*4i«4i»** 



******if********** 



****itiQ^**i^****if** 

♦ GET ADDRESS ♦ 

♦ OP ODTPOT * 

♦ AREA ANI * 

♦ RECORD ♦ 

♦ LENGTH * 
******nf****lf***** 



**li1******* 

* * 

* SET LEADING * 
♦SBGHENT SNITCH,* 

* SEGMENT IHD * 

* * 
********ti** 



IJ6SP050 X 

*iti***f '\*if******** 

♦COMPLETE SPACE * 

* AVAILABLE IN * 

* ODTPOT AREA * 

* IP REQOIRED ♦ 

**********il,*****tt 



IJGSP060 
IJGSP120 

**Q-\******* 

*SET SEGMENT* 
♦INDICATOR TO * 
*REQUIRED VALUE.* 
♦TORN ON HDLT.* 
SIGH. SNITCH* 
*********** 



IJGSP070 

*****^'\**1f*****Ht* 

* SET REOOIRED * 

* LENGTHS AND * 

* UPDATE OUTPUT * 

* AREA ADDRESS ♦ 

* * 
***************if* 



**** 


**♦♦* 










♦ *♦♦ 


**** 


* * 

* A2 * 

* ♦ 


* * 










4t * 

* AH * 

* * 


* * 

* S5 ♦ 

* ♦ 


***♦ 


* 










**** 


**** 


*ti***j^2********** 

* INCREASE ♦ 

♦ TOTAL ♦ 


IJGSP210 .*. 

A3 *. 
.♦ ♦ 
^.♦IST BECOBE 

**. VOLUME 
♦ . . * 

*. .* 


*. 
*' 


YES 
*. . . . 


X 

* GET DATA * 

* LENGTH * 

* * 


iaGSP2flO X 

♦*A5******* 
* Sfl Nt]ll * 

* SIGHIBNT AND 
* RESTtT T^HOPEN 

* SMITCfi 
*T^ lilCUIJED* 



*4t4>44cB2* ********* 

* UPDATE * 

* SEGMENT * 

* DESCRIPTOR * 

* NOED BY NEN * 
*S1GMIHT LENGTH * 
1fi^ifilt******it****** 



**Q2******* 

* SET * 
* AND RESET 
* REQUIRED 
*SNITCHES AND 

*INDICATORS * 



X 
*****\i2********** 

* RESIT CCNTBOL * 
*FLD IN SEGMENT * 
*DESCB. WORD AND* 
*GET HO. OF BYTES* 

* TO BE MOVED * 
***i^*'t *********** 



**** 




*HE * 




* C3 *.X. 




* * 




**** 




IJGSP045 X 


X 


*****2^********** 


«4>***E2********** 


* GET BLOCK * 


* GET SEGMENT * 


* SIZE * 


* POINTER, REM. * 
*RECOfiD LENGTH, » 


* MINUS B D N ♦ 


♦ IP REQUIRED ♦ 


♦ AND OUTPUT * 


* * 


* AREA ADDRESS * 


4fittif4'************* 


4,**************** 



3|c4>F2******* 

* TURN ON * 

* SAVE COUNT * 
* SWITCH * 

* IF REQUIRED * 

♦ * 
*********** 



* MOVE SEGMENT * 
*FROM NOBR ABEA * 

* TO I/O ARIA * 



**B2******* 

♦ ♦ 
RESET 

LEADING 
SEGMENT 

* SNITCH * 



X 

***** 
*HD * 
* J1* 



* A2 * 

♦ ♦ 
**** 



**jll-\*lf*iH*** 

* RESET * 
TRACK 

TRUNCATION 
SNITCH 

♦ ♦ 



4i««*4<B 3 ********** 
*iaGVP150 HF* 
♦_♦_♦_»_»_♦-♦-♦_♦ 

* NAIT FOE I/O * 

* CCMPLET30N * 

* CHICK EEBCES * 
*4c 4 4 *« 1^4 44i « *«««4< * 



**:t*i^Q2* ********* 

* SET SEEK * 

* ADDRESS AND * 

* DATA LENGTH, * 

* GET I/O AREA * 

* ADDBESS * 
Hi**************** 



♦ SET CCN * 

*CCBHANE CCDE,* 

♦RESET CHAINING * 

* BIT, SET * 

*BEBEAE Si. * 

44444444*44 



il,*ilf-g2** ********** 

* SVC * 
BEAE 
* EATA * 

4444444 44*4444444 



*****Y3********** 
♦IJGVP150 HF* 

4-4-*-4-*-*-*-*-* 

* NAIT ICE I/O * 

* CCHPLETICN * 

* CHICK EEBCES * 

44«)|<*****«:|<*«**:** 



4«G344****4 

* SET AND * 
* RESET BITS * 

* AND ADDEESSES 
*T0 NBITE CNT * 

* KEY, EATA * 
44«****«4<** 



44***H 3 ********** 
♦UPDATE SEGMENT * 

* POINTIB EY * 

* H BYTES ICE * 
♦SIG DESCBIPTOR * 

* NCEE * 
444**4>4*4«4>*»<4<«4'* 



IJGSP220 X 

44*41* J3444*«4««*4' 

♦ GET SEGMENT * 
♦LENGTH AND NEW * 

♦ EATA tINGTH * 

♦ II BECUIBID * 

44*4i***444**4<«*«)l< 



IJGSP2H0 X 

444**K3********** 

* BESET ANE * 

* STCEE SEEK ♦ 

* AEEBESS AND * 
*DECBEASE BECORD* 

* NDKBIE EY CNE * 
44**** 4*444****** 



IJGSPLYS X 

44***B ({*♦***♦♦♦♦♦ 
♦IJGVP150 HF* 
4-4-*-*-*-*-*-*-* 

* NAIT FOE I/O * 

* COMEtETICN llND * 

* CHECK * 
44*************** 



4*** *Clt ********** 

*UPDATE I/O ARIA* 
*ADDRESS, RECORD* 

* ADDRESS, AND * 

* BLOCK LENGTH * 

* IF REQOIRED * 
44*************** 



4****]]4**4******* 

* * 

* BDILD * 

* NOLL SEGMENT * 

* IF REQUIRED * 

* * 
4**************** 



***£4** ********** 



SVC 
WRITE IF 
REQUIRED * 

4444444444*4 



44***74********** 

♦IJGVP150 HF* 

4-*-*-*-*-*-*-*-.* 

♦ WAIT FOB I/O * 

♦ COMPLETION * 

♦ CHECK ERRORS * 
44*************** 



IJGSP260 X 

44***G4** ******** 
♦IJGVP550 HI* 
4-4-4- *-♦-*-*-*-* 

♦ INCREASE * 

♦ TRACK NO. * 

♦ BY 1 * 

444************** 



44***H4** *♦♦♦♦♦** 

* SET RECORD * 

* NUMBER * 

* EQUAL TO * 

* ZERO * 



4****G5***4****** 
♦TOGVE53C PI* 
4- 4- ♦-*-*- *-*-♦-* 

♦ OPEN NEXT * 

* EXTENT * 
4 4 
444*4444**4****** 



4*C5******* 

* SET * 
9NE BISET 

ALL REQUIRED 
SWITCHES 

* * 
44********* 



4****135***4****** 

* GIT CUTEDT * 

* AEIft ANE EAT? * 

* AtERESS, GET * 

* INE 01 * 

* I/O AREA ♦ 
4*4*4*4*44444*44* 



44* **E5* ********* 

* 1NTTIALI2E * 

* OUTPUT EICCK * 
♦CAPACITY, EATA * 

* LENGTH, TRACK ♦ 

* CAPACITY * 

44*4***4444*44 44* 



**** 

* * 

* A1 ♦ 

* * 
*♦** 



444*4* 



44444**** 



IJGSP265 X 

44***J<t ********** 

* UPDATE SEEK * 

♦ ADDRESS IN ♦ 

* SEARCH BUCKET * 
♦AND SET RECCED * 

♦ NOHBIR TO CNE * 
44*******4******4 



IJGSP270 

4*** *K4** ******** 

♦ INCREASE DATA * 

♦ LENGTH IN ETI * 

♦ BY 4 BYTES * 
♦{SEG DESCRIETOE* 

♦ WORE) * 
4********4******* 



* A5 * 

4 * 

444* 
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Chart HJ. SDMCDVU: GET Macro (1 cf 4) 





**** 






**** 




* * 






* * 




♦ A2 * 






♦ ft3 * 




« * 






♦ ♦ 




**** 






**** 




X 






X 




a2 *. 






i|,*^,*^,J^2********** 


*4>**Al**«**4c4i«4> 


.* * 






♦IJGV025C HK* 


* SDHODVO * 


.* 


*. YES 


*-*-♦-*-*>«-*-*.« 


* GET HACBO * 


*. EOF 


.*. 




♦ MOVE LOGICAL * 


♦ * 


♦. 


* 




* BECOBD IC ♦ 




*. .♦ 






* WCBK IBi« * 




*. .* 




X 


^•*****it***i^***iH*H, 




* NO 




*HL ♦ 
* F1* 

* * 

* 


] 






ijG^aisa 




IJ6V0030 X 






IJGVOIUO X 


«*B1******* 


B2* **. 






*i»Q344«4>4)»* 


* BESET ALL ♦ 
♦SWITCHES BOB * 


.♦ ♦ 






S 1 SWIICHIS* 


.* B»D 


*. IBS 


* OB SICCNt ♦ 


♦ SPAKHID PBOC. ♦ 


♦. OP FILE 


.♦ 




* B AD ABE S YE ♦ 


*ABD ROBK ABBA* 


*. BEACHED . 


« 




* ICOBE CN * 


♦ SWITCH ♦ 


♦ , .* 






*IF BECDIBED* 


^i********** 


♦. .♦ 




X 




* BO 

* 




*♦♦♦♦ 

♦HB * 
♦ G2* 

* * 

* 








IJG^0380 




IJGQOOOO X 


IJGV0065 X 




X 


♦IJGQD017 HK* 


* 






*IJGY0290 HM* 


* EXCHANGE 






«-4<-*->4>-4-*-4-4>->* 


* IBIT BCD SIZE * 


* lOABEA 






♦ BIAD EATA * 


*AHC SEGHBNT PTB« 


* AEDHESSES 






* IF BECDIBED * 


♦ IP BBQUIBBD * 


* 






♦ ♦ 


4i****«**4i««*4t4<**4c 




4i**4>*««*4«*«***«* 





TJG7ni51 .♦. 


*^t\H******* 


J15 ♦. 


RESET * 


.* *. 


SWITCH TO * 


y^s .* SKIP ♦. 


SKIP FHEE *X.. 


*. 'BEE TBACF .♦ 


THACK * 


*. BCOTTKE .♦ 


BODTINE * 


♦. .* 




*. . * 




* »C 


X 


• 


♦ *** 




* * 




* E5 * 


iaGVOl53 X 


♦ * 


4c*:t>4>4g5*«*4*4«4** 


**♦* 


* S^T THftCK * 




* HtCT^ESS IN * 




* SEARCH ARG ♦ 




♦ fl^tE TC * 




* TBEE TRACK ♦ 




*4<*«44>*44444 4**3»it> 



4i4<*C5* *********** 

* SVC 36 * 
^TiEE 
TRACK * 



♦IJGQUFBE BL* 

* CHK IF NBCBS ♦ 

* TO FREE TBACK ♦ 

* IP BEOOIBBD * 



«**4t*I}2*** ******* 
*GET lOAREA AND * 

* DATA ABEA * 

* ADDBESS. SET * 

* BECOBD LENGTH * 

* TC ZERO * 

4c )|>«3|C* ««*]«•******** 



»♦♦♦ 

♦ * 

♦ * ♦.X 

♦ * 

IJGQ0030 



* BEPEBENCES 
TO HJE1: 
RKA2, HKD3 
HKH1 



* FIRST 

ENTBX INTO 

*. BODTINE . 

*. .* 



♦ B1 * 

♦ » 
**«* 



4c*pl***4t*«* 

* SET FIB ST * 
♦ENTBI SWITCB ♦ 

♦BESET SWITCHES 
♦ IN VER.CCW ♦ 

♦ EATA LENGTH^ 
*4t«**4c***4'* 



*«***G1 ♦******♦♦♦ 

♦ SET BECOBD ♦ 

♦ HOHBER IN ♦ 
♦SEARCH AB6DHENT* 
♦AND COUNT FIELDS 

♦ TO ZEBC ♦ 
«4>««9|i*4i«********* 



4c4c*«*E2********** 

♦ CCMPDTE * 

♦ END OF BLOCK * 

♦ ADDBESS FOB * 



*4>***F 2*** ******* 

* EXCHANGE * 

* lOARIA * 

* AIDRESSES * 

* IN BEAD CCW ♦ 



IJGV0100 .*. 






X 


D3 *. 


4c4c4c**Dt(** ******** 


«4>***o5******** 


.* *. 


* LOAE * 


* RESET 


.* SPANNED *. NO 


* lORBG * 


* ADDRESS 


*. SPECIFIED .* 


. ..X* WITH RECORD * 


* IN SEARCH 


*. .* 


* ADDRESS * 


* ARGDHENT 


*. .* 


* * 


* 


*. .* 


4c 4>*************** 


****** f ******** 


* YES 












**** * 








*HP * 








* K3 *.X. 








* * 








**♦* X 


UGQUOIO X 

$4<***E3**«******* 






lJGVnl52 .*. 


X 


E5 ♦. 




4c***E4********* 


. * *. 


* GET AEEBESS * 


* R TORN TO * 


.* 2 * 


* OP RECORD * 


* ROBLEH * 


..X*. I/O AREAS 


* ICINTEB * 


* ROGBAH * 


*. . * 




*«** ********** 


*. .* 






♦. .♦ 
♦*♦* * Yis 
* * 

**** 


X 






.*. 




.*. 


F3 *. 




PK *. 


.* *. 




.* *. 


.* NDLI *. NO 




.* WAIT * 


*. SEGMENT .* 




♦ . VQl^ SECCNE 


*. .* 






*. GET .* 



HI 



♦ , 



.♦ WAS 
*. EOV 

*. POBCID 
♦ . .♦ 
♦. .♦ 
♦ NO 
*««* 
♦HB ♦ 

♦ K« ♦.X. 

♦ ♦ 

*♦♦♦ . laG 

IJGVOOIO X 

4c4>**>|cJ1*******4c** 

♦IJ6V0290 HM^ 

4>-*~*-*-*>*-4c-4t-« 
..X^ READ ♦ 
. ♦ DATA ♦ 

♦ * 
***************>** 

***i* 

♦ ***** 

♦ J1 * ♦ 

♦ ♦ K1 ♦.. 
***** * 

**** 
IJGVD050 X 

«*4t4<*Kl ♦♦♦♦*♦*♦♦♦ 
♦IJGVD156 HL* 
♦-,*«*_♦_♦-♦_♦>♦-.♦ 

♦ WAIT FOB ♦ 

♦ COHPLETICH ♦ 







*. .* X 








* YES ***** 








*HK * 


jI 






* A1* 




: *** 

* 


X 






IJGQD011 


IJGV0070 .*. 






X 


G2 *, 






**G3*44**** 


.♦ ♦. 






* * 


. ♦ END ♦ 


YES 


*TDRH OH NOLL * 


♦. OF FILE 


.♦. 




* SEGMENT * 


*. BEACHED .* 






♦ SWITCH * 


♦ . .* 






* * 


♦. .♦ 




X 


*4*4*4«**** 


* HO 




***** 








* * 


X 






* 


**** 


* IJGVD158 


* * 


IJGVD075 X 






* El * 


4c«***H2********** 




* * 


♦UPDATE CDBBENT 


* 




**♦♦ 


*IOABEA ADDRESS 


* 






♦ BY CORBENT 


♦ 






♦ RECORD LENGTH 


* 







*****QH********** 

* * 

* EXCHANGE * 

* lOAREA *X 

* ADDRESSES * 

* * 
***************** 



X 

***** 

♦ HH ♦ 

♦ G2^ 



***************** 



J2 ♦. 

.* * 
.* END 
♦. OF BLOCK 
♦. BEACHED 

♦ . .♦ 



.♦ BECESSAFY 
TC WAIT 
♦.CALL OPEN. 



**f]5******* 

* RESET * 
SWITCH 

FCR SECCNE 

* * 
*********** 



.X.. 
X 

***♦ 

* * 

* K1 * 

* * 

**** 



OF I/O 

*****%* 



*********'******** 



♦ NO 



*****f^2********** 

* SAVE OPEATEE * 
*IOARIA ADDRESS * 
*AND GET LOGICAL* 

* RECCBD LENGTH * 

* * 
***************** 



**** 

* * 

* A5 * 

* * 
**** 



**K3******* 
♦SET SWITCH * 

♦ TO WEITE * 
BtCCF ASE 

♦ EETDBN TO * 
♦GET RCDTINE* 

*********** 



♦ A2 ♦ 

* * 
**** 



Charts 321 



Chart HL. SDMCDVU: GET Macro (3 cf U) 



*♦♦♦ 

* * 

♦ J13 ♦ 



* SDHODirtJ ♦ 

* WAIT AMD TEST ♦ 

* SOEBOOTIIIB ♦ 



*«4>* 

IJGVD160 X 

4> * * * 

* ♦ SVC 7 * * 

* * BAIT ♦ ♦ 

* ♦!? RBQOIBBD* ♦ 

* ♦ ♦ * 



♦ SDHODVO ♦ 

♦ HAIT • 

♦ SOEBOOTINE ♦ 



♦ SAVE * 
.* LIHKAGE * 

♦ REGISTIB * 

♦ * 



GET AIDS ♦ 
CF DSE5 * 

WLB IBBOB ♦ 
EOOTIHI * 

* 



♦IJGVO2U0 HK* 

♦ BIAE * 

♦ CCONT * 

♦ * 





*♦*♦ l 




♦ ♦ . 




* C3 *.X. 


«**** 


♦ ♦ , 


♦HP * 


♦ *«* 


♦ 13* 


IJGVDCES X 


* « 


i^^tiH)titiC2********** 


* 


* GET ABDBESS * 




* CF DSE5 ♦ 




. ..X* EBBCB ♦ 


* * * * 


* BOOTINE * 




* IF BECDIBEE * 





* G1 * 



* SVC 36 ♦ 
FREE TRACK 
♦ IF REQOIRBD ♦ 



ABEAS 
AND POT 
ISSOID 



♦D2 
SDHODVO NACBO PABANETEB 
OPTIOH. DECISICN DOES 
NOT APPBAB IN AN 
ASSENBLT LISTING. 



REFERENCES 
TO HLF1: 
HJA2, HJ62 



**>l<4> 


X 


IJGV0158 


.*. 




PI * 


.♦ 




.* 


FEOVD 


*. 


= YES 


*. 


♦D2 


* 






*. .* 




* N 


♦♦♦* 




* 


n 


* G1 


♦ .X. 


* 


|i 


4>**4i 


X 


IJGVni61 


.♦. 




51 * 


.* 




.* 


DATA 


*. 


CHECK 



*4iHl *♦**♦** 
♦ RESET ♦ 

* DNRECOV 

* I/O EBBOR 

* INDICATOR 

**** 

* * 

* J1 ♦.X. 



♦♦E2******* 
♦SET SHITCH ♦ 

♦ TO TEST 
FOB END 

♦ OF FILE 

« * 



♦ BETDBN TO ♦ 

♦ CALLING ♦ 

♦ EODTINE ♦ 



♦SET SOV FOB+ 

♦ OPEN AND ♦ 
.X+ RESET EOF AND 

♦ SECOND GET ♦ 
♦ SNITCH ♦ 



IJGVOSEB 

♦ SAVE MODDLE ♦ 

♦ BEGISTEBS ♦ 

♦ AND BESTCBE ♦ 

♦ nSEB ♦ 

♦ BEGISTEBS ♦ 



« * 

♦GET ICABEA AND ♦ 
♦PABANETEB LIST ♦ 

♦ ADDBESSES ♦ 

* ♦ 



**4>*«p3 44* ******* 

♦ ♦ EBANCH ♦ ♦ 

♦ ♦ TO DSEB ♦ ♦ 

♦ ♦ EBBCB ♦ ♦ 

♦ ♦ BOOTINE ♦ ♦ 

♦ * * * 
****«*«*4444***«« 



EBBEXT 

SPECIFIED 

»D2 



TORN ON 

SKIP 

SNITCH 

* * 

4I********** 



♦ NAS ♦ 

OPERATION A 
♦. NBIIE .♦ 



*-*-*-♦-♦-*-♦-♦-* 

♦ BEAI ♦ 

♦ COONT * 

♦ * 
***************** 



*««4t*D4********** 

♦ * SVC 36 ♦ * 

♦ ♦ FREE ♦ ♦ 

♦ ♦ TRACK ♦ * 

♦ *IF BEQUIREO^ ♦ 



* 4t 



* * 



DNRECCV 
I/C EBBOR 



X 

***** 
*HH ♦ 
* G2+ 



**** 

* * 

♦ J1 ♦ 



***************** 



IJGVDHFT X 

«***«B4*******^** 
♦IJ6V0290 «»♦ 

4i_4t-*-*«*-*-*>*-* 

♦ READ ♦ 

♦ RECOBD ♦ 
« * 
»«*4>****>t>«******* 



♦IJGVD160 HL^ 

♦ NAIT AND ♦ 

♦ TEST FOB ♦ 

♦ BRBOBS * 
4444 4444444I4I4**** 



4t***G4*******^* 

* BBTOBN TO ♦ 

* CALLING ♦ 

* ROOTINE * 
4c*4>*«**4<******* 



4i44*](5*«****4i** 

♦ SBHODVU * 

♦ FREE TRACK * 

♦ SDEBCDTIHB * 
;»************** 



♦ RESET 
SPANNED HCID 

* SlITCH 

* * 

4******41**41 



4i44>**C 5*** ***♦*♦* 

♦ * 

♦ SET SEEK ♦ 

♦ ADDRESS IN ♦ 

♦ CCN TO FREE ♦ 
« * 
4***«*«*** 4 ****** 



4i4>*])54t**4***«**«* 

♦ SVC 36 ♦ 

FREE 
♦ TRACK ♦ 

4********4******* 



*****C5«***«***** 

♦ * 

♦ RESET ♦ 

♦ SEEK ♦ 

♦ ADDRESS ♦ 

♦ * 
4**44*****4****** 



****75********* 

♦ BETDRN 10 * 

♦ CALLING ♦ 

♦ BODTIHE * 

***4****44***4* 



NAS 
OPERATION 
. A WRITE . 



***}15***4 44****** 

* SVC C ♦ 
BETFl 
UBITI ♦ 



♦ C3 ♦ 

* * 
**** 



*****Ki ********** 

♦IJGV0240 HK^ 
*-*-*-*.*-*-*-*-* 

♦ READ ♦. 

♦ COONT * 

♦ * 
***************** 



.♦ NRONG ♦. YES 
.LENGTH BECOBD.*.... 
♦. ERROE .♦ 



♦ A3 ♦ 

* * 

♦ *** 



****K2********* 

♦ RETTIRH TO * 
.X^ CALLING * 

♦ ROUTINE ♦ 
****44********* 



*****j3 ********** 
♦IJGVO2II0 HK* 

*-*-*-*-*-*-*-*-* 

* BIAE * 

* CCONT ♦ 

* * 
***************** 



****I^3********* 

♦ BBTOBN TC ♦ 

♦ CALLING ♦ 

♦ BCOTINE ♦ 
*************** 



IJGVORD .♦. 






JU . ♦. 






♦ DATA ♦ 




.♦ 


CHECK OR 


♦ 


♦.OHRICOVIRABLS 


♦ . 


I/C 

♦. ERROR. ♦ 


* 








♦ . .♦ 






♦ NO 





***************** X 

***** 
*HP ♦ 
* C3* 
* * 
* 
IJGVOIT 
IJGVORTB 

***J5*** ********* 



♦ SVC 

.1 RETRY 

♦ BEAI * 

***************** 



* SVC 50 ♦ 

* CANCEL ♦ 

* * 
*************** 



**** 

* * 

* El ♦ 

* * 

**** 
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Chart HN. SCMODVU: PUT Macro (1 cf 3) 



♦♦*♦ 

* A2 ♦ 

♦ ♦ 
♦♦♦♦ 



* SDMODVO * 

* PUT MRCBO * 

* ♦ 



IJGVOUOO 

* SAVE USER * 

♦ BEGISTERS AND ♦ 

* POINTER TO * 

♦ AREA * 

« 4> 



iJGvoauo X 

■ RESET AND ♦ 



*codi;t and rd/* 

♦ SRT CCil * 



* SVC ♦ 

WRITE 
♦ RECORD * 



♦*C2******* 

♦ * 
SET OPDATl 

SlITCH 
OP? 

* * 



X 

♦♦*♦* 
♦ HP ♦ 



i^:^^,*i^22* ********* 

* GET WORKARIA * 

* ADDRESS AND * 

* UPDATE WORK * 

* AREA FCINIIR * 
*BY H AND STCBE ♦ 



* RECORD 

IN CORRENT 
*. ELOCK . 



*IJGQDEXT HC* 

* OPEN * 

* PHBVICDS * 

* EXTENT * 



*IJKQD121 HQ* 

* CHICK EXTENT * 

* LIMITS ♦ 

* * 



* A3 * 

4> * 



X 

***** 
♦HP * 
♦ E3* 



IJGQDUUO 



***** 

♦ HP * 

* C2* 

* ♦ 



****02********* 

* SVC 50 * 

* PDl ILLEGAL * 

* AFTER FEOV ♦ 
4<************** 



**** 

♦ HP ♦ 

♦ E2 ♦.X 



**** 
IJGQ0400 X 

**]g1******* 

♦SET OPDATl ♦ 

♦ SNITCH IN ♦ 

* DTP OPEN ♦ 

♦CCHMDNICATION^ 

♦ BYTE ♦ 

*********** 



IJGVD250 X 

*****p -I ********** 

♦IJGVO250 HK^ 
*-*-*_*.*.*-*-*.* 

♦ HCVE LOGICAL ♦ 

♦ RECORD TO ♦ 

♦ OOTPDT AREA ♦ 
***************** 



IJGVOtHO 

*****Q1 ********** 

♦GET DEBLOCKING ♦ 

♦ CONSTANTS AND ♦ 
♦UPDATE CORRENT ♦ 
♦lOAREA ADDRESS ♦ 

♦ ET BCD LENGTH ♦ 
***************** 



**** 

* * 

* F2 ♦ 

* * 
***« 



il^**iti*f2********** 

♦IJGVD156 HQ^ 

*.*-*.*-*-*.*.*-* 

♦ NAIT FOR I/O ♦ 

♦ COMPLETION ♦ 

♦ IF BEQDIRID ♦ 
********!!******** 



**62^*^*^^^ 
♦SET SNITCH ♦ 

♦ TO EXCHANGE ♦ 

1/C AREA 

♦ ADDRESS ♦ 
♦IF BEOOIBED^ 

*****!***** 



.♦. 


IJGVa'»30 X 


HI ♦. 




*****H2****^^^^^^ 


.♦ ♦. 




♦ UPDATE SEARCH ♦ 


.♦ END OF ♦. NO 


♦ ARGUMENT IITH ♦ 


♦. BLOCK .♦ 




♦ ADDR SS OF ♦ 


♦. .♦ 




♦ EECCBD TC BE ♦ 


♦ . .♦ 




♦ NR TTEH ♦ 


♦ - .♦ 


X 


***************** 


♦ YES 


***** 
♦HP ♦ 

♦ 




ijGvoaso 




IJGVDJH5 X 




X 


**J1******* 




**i^*ifj2********** 


♦SET SNITCH ♦ 




♦SET DATA LENGTH^ 


♦TO SKIP FREE ♦ 




♦ IN EEAD/NRITE ♦ 
♦CCN AND MODIFY ♦ 


♦ OPEHATICN ♦ 




♦ AFTER ♦ 




♦ ecu TO WBITE * 


♦ DPDATE ♦ 




♦ DATA ♦ 






***************** 


♦♦♦♦ '. ♦ REFERENCES 




♦ ♦ . TO 


HNKI: 




♦ ♦ ♦.X. HJK3, HRD1 




**** * 






IJGVU420 X 




X 


**K1*^^^^^^ 




i^tfi2******* 


♦ RESET 2ND ♦ 




* * 


♦ AREA SNITCH ♦ 




♦ SET READ ♦ 


♦ AND SET MASK ♦ 




♦ CCUKT CCW TO * 


♦ FOB SECOND ♦ 




♦ NOP ♦ 


♦ READ ♦ 




* * 


*********** 




*********** 



**])3******* 

♦ BESET ALL ♦ 

♦ SPANNED £i. ♦ 
♦EXCEPT NULL SEG^ 

♦ SET UPDATE ♦ 

♦ RETURN SS ♦ 
*********** 



*****£ 3*4******** 

♦ SET CCUNT ♦ 

♦ SAVE AREA ♦ 

♦ TO ZERO. SAVE ♦ 

♦ SEEK ADDRESS ♦ 

♦ OF 1ST ELOCK ♦ 
***************** 



*****p 3 ********** 

♦ * * * 

♦ ♦ SVC 7 ♦ ♦ 

♦ ♦ WAIT ♦ ♦ 

♦ ♦IF BECUIBED^ ♦ 

♦ * * * 
***************** 



UGQUIIS 

**G3******* 

♦ RESET 2NI ♦ 

♦ GET SNITCH 
♦ AND SET PUT 

♦ ISSUED 

♦ SNITCH ♦ 
*********** 



*****}|3 ********** 

♦IJGVOlSe HQ^ 
*-*-*_*-«.*.*.*-* 

♦ TEST EOF ♦ 

♦ AND ERRORS ♦ 

♦ * 
***************** 



i****J-3 ********** 

♦ SET BEAD ♦ 

♦ CCUNT CCN ♦ 

♦ NITH NEN ♦ 

♦ COUNT COMMAND ♦ 

♦ ♦ 
***************** 



*****]^ ::********** 

♦ GET SEQUENCE ♦ 

♦ KDHBEB CF ♦ 

♦ STARTING ♦ 

♦ BLOCK ♦ 

♦ IF REQUIRED ♦ 
********!******** 



*****D1(********** 
♦IJGVU460 HQ^ 
*-*-*-*-♦-*-*-*-* 

♦ EXCHANGE ♦ 

♦ I/O AREA ♦ 

♦ ADDRESSES ♦ 
***************** 



*****^1)********** 
♦IJGQU111 HQ^ 

*-*-i|t.*.:^.*_*.*.* 

♦ BUILD BLOCK ♦ 

♦ AND SEGMENT ♦ 

♦ DESCRIPTOR ♦ 
***************** 



♦****p((** ******** 

♦ SET SEGMENT ♦ 

♦ DESCRIPTOR ♦ 

♦ NORD TO ♦ 

♦ FIRST ♦ 

♦ SEGMENT ♦ 
***************** 



♦ SVC 
.X READ 

♦ DATA ♦ 

**«*****•**«***«* 



*****]]5***«****** 

♦lOGQUISe HQ^ 
*- *_ I- *_ *.*.*.«.* 



***************** 



.♦ ERROR IN 


*. 




♦. CPERATICN 




« 


♦. 


♦ ' 




♦ . .♦ 






♦. . ♦ 






♦ YES 






**** 






♦HP ♦ 






♦ H5 ♦.X. 






* * . 






***« 






IJGQUERR X 

1****75***4**4 






**i 


H* 


♦IJGCOEXT 
*.*.!-*_*. 4.4. 


VQ* 


4- 


* 


♦ OPEN 




* 


♦ EXTENT 




* 



**** 
GQU106 X 
$****G()********** 

♦IJGQU120 BQ* 
*_*_ i- *_*,*_ *_ *-. * 

♦ MOVE SEGMENT ♦ 

♦ TO I/O AREA ♦ 

♦ * 
***************** 



*****H4********** 

♦ SET CCN ♦ 

♦ COMMAND TO ♦ 

♦ WRITE DATA ♦ 

♦ SET CCN CHAIN ♦ 

♦ FOB VERIFY ♦ 
***************** 



♦ SVC 

WRITE 
* DATA ♦ 

***************** 



***************** 



X 

***** 

♦ HP ♦ 

♦ A1^ 



|***4f]5********** 

♦ * 

♦ GET ADDBESS ♦ 

♦ OF I/O ♦X. 

♦ AREA ♦ 

♦ 4 
4***444***4 4 4* 4 4* 



UGQUIC! 



***** 
♦HP ♦ 
♦ B3^ 



.* 
. .♦ 
♦ NC 



***44K5*44 4*4*4** 

♦ GET RECOIBED ♦ 
♦SEGMENT LENGTP ♦ 

♦ AND UPDATE ♦. 
♦SEGMENT POINTERS 
♦TO NEXT SEGMENT^ 
4*********444**** 



♦ AU ♦ 

* * 
*444 
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Chart HQ, SDMODVU: PUT Macro (3 cf 3) 



* SDMODVD * 

* BOILB ♦ 

* SOBBOOTINE ♦ 



* ADDHESS AND ♦ 
*DATA LENGTH AND* 

* BUILD BLOCK * 
*DESCRIPTOE UORD* 



*)|c«4i4<C 1 ♦4>**4>4'*)t<** 

♦ SOBTRACT BDH ♦ 

♦ LENGTH FROM ♦ 
♦SEGMENT LENGTH ♦ 

♦ BDILD SEGMENT * 

♦ EESCR. NOHD * 



♦ RETOHN TO * 

♦ CALLING * 

♦ ROUTINE ♦ 

:|c4c * « « a|c)|i * 4c * * * 4> 4t « 



* SDMODVU * 

* HOVE SEGMENT * 

* SUBROUTINE * 



IJGQni20 X 

* GET HORK AREA * 

* ADDRESS AND * 
♦SEGMENT LENGTH ♦ 

♦ -4 FOR BLOCK * 

♦ DESCRIPTOR VIOBD+ 



♦ UPDATE NORK ♦ 

♦ AREA ADDRESS ♦ 

♦ AND STORE AND ♦ 
♦SET POINTER IN ♦ 

♦ WORK AREA ♦ 



♦♦♦♦A2^****^^^* 

♦ SDMODVU ♦ 

♦ CHECK LIMITS ♦ 

♦ SUBROUTINE ♦ 



4>4>4r*4>*****)» >»♦*«* 



♦ RESET ♦ 

♦ MULTITRACK ♦ 
FIRST TIME 

♦ SNITCH ♦ 
♦IP REQUIRED^ 



IJGQU121 



♦ SDMODVU ♦ 

♦ TEST ERRCFS ♦ 

♦ SUBROUTINE ♦ 



V 4> * * 

♦ ♦ SVC 7 ♦ ♦ 

♦ ♦ NAIT ♦ ♦ 

♦ ♦IF REQUIRED^ ♦ 
« * ♦ ♦ 
4i*«4<*4i*4i4>**i|i*«4<4>4t 



IJ6QUNR Z 

♦♦C3**»***^ 
♦ RESET ♦ 
♦UNRICCVERAEIE^ 



««:»«««4>*4i*:tt 



USER 

ERROR 

ROUTINE 



* « 

♦ A«» ♦ 
*♦♦♦ 

♦ LOAD MODULE ♦ 

♦ REGISTE»»S ♦ 

♦ AND SAVE ♦ 
♦USER REGISTERS ♦ 
4> ♦ 



♦ SAVE POINTER ♦ 

♦ TO SAVE AREA ♦ 
♦OR LOAD POINTER* 

♦ TO CALLING ♦ 

♦ ROUTINE ♦ 



TURN ON 

ERROR 

SlITCH 

* * 



♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ ROUTINE ♦ 



♦ SDMODVU ♦ 

♦ mCHANGE ♦ 

♦ SCBI^OUtlNE ♦ 



♦ IXCHAN6I 

♦ ADDRESS 

♦ IN CCN 

♦ 



♦♦♦♦C5********^ 

♦ RETURN TO ♦ 

♦ CALLING ♦ 

♦ BOUTIBI ♦ 



***** 
*HM * 
♦ CH* 



**** 

♦ HK ♦ 

♦ F2 



IJGQUa90 ♦♦♦* 
IJGQU12U X IJGQU021 

«****j2^^^ ♦♦♦♦♦♦♦ $****£ 3********** 



SIT DATA 

♦ LINGTH IN ♦ 

♦ CCN AND TURN * 

* CHAIN BIT ON ♦ 

* * 
***************** 



****f2^^* ♦♦♦♦♦♦ 

♦ RETURN TO ♦ 

♦ CALLING * 

♦ RCUTINE ♦ 

:^ ******** ****** 



****G2^*****^** 

♦ SDMODVU ♦ 

♦ OPEN EXTENT ♦ 

♦ SUBROUTINE ♦ 
*************** 



***** 


; 


♦ HK ♦ 




* G3+ 


"«$SI55H2*t******* 


* * 


* 


♦ SAVE CURRENT ♦ 


IJGVU250 


♦ EXTENT ♦ 




♦ S QUENCE ♦ 

♦ NUMBER » 





**************** 



*****j2********** 

♦ DECREASE ♦ 

♦ EXTENT SEQ * 

♦ NO. EY 1 FOB ♦ 

♦ PREVIOUS ♦ 

♦ EXTENT * 
***************** 



*****K2*^* ♦♦♦♦♦♦♦ 

♦ * 

♦ CLOSE ♦ 

♦ DTF TABLE ♦ 

♦ IP REQUIRED ♦ 

♦ * 
***************** 



X 

***** 
♦HM ♦ 
♦ G2 + 

* ♦ 



GET ADDRESS 
^ OF USER * 

♦ ERROR ♦ 

♦ FCDTINE ♦ 

♦ * 
***************** 



**F3*«******** 

♦ SAVE MODULE ♦ 

♦ REGISTERS ♦ 

♦ AND RESTORE ♦ 
♦USER REGISTERS ♦ 

♦ * 
***************** 



*****Q3 ********** 



******** 9******** 



*****g3* ********* 

♦ LCAD FECCED ♦ 

♦ LENGTH AND ♦ 
♦PARAMETER LIST ♦ 

♦ ADDRESS IN ♦ 

♦ REGISTERS ♦ 
***************** 



*****j3 ********** 

♦ * ♦ * 

♦ ♦ BRANCH TC ♦ ♦ 

♦ ♦USEE ERROR ♦ ♦ 

♦ ♦ ROUTINES ♦ ♦ 

♦ * * * 
***************** 
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Chart JA. SEMCDUI: GET Macro (1 of 2) 



*4<4i|>Al ********* 




,* ♦. 


* SDMODOI * 




.* ERET *, 

♦. =SKir .* 

*. .* 

*. .* 

*. .* 

* YES 


X 




*. 


IJGDG210 ,*. 

B1 *. 




X 

4i4>«]|c*£2********** 


.* 2 *. 
.♦ 1/0 AREAS *. YES 
*. OR WORK .*.,., 

*,^ ARIA ^^.* . 


* HEBE COUNT * 

* PIELD * 

* » 


*. .* 


X 


««**:(.« ili*****^'**** 


* NO 


**** 
* * 
J El J 

**** 




**C1******* 
♦ * 




*«***C2********** 


* INITIALIZE * 

* ARIAS, CClS * 

♦AND SWITCHES * 




* OEDATI * 

* SEEK * 

* ADDRESS * 



.* EBET *. NO 
.X*. OPTICN .*... 
*. IGNORE .* 



*;4i«)|i)|iQ34i*4<******4t 

*IJG0G33C JB* 

*-4i-4»*-*-*-4>.*-* 

* RIAI CCONT * 

* FIEID * 

* * 
****** **««****4' 41* 



4i*4>**C3********** 



***K4** ********** 

* SVC * 
. X RETRY 

* READ * 

«4i4*«4<«**4>4i«]|i4>*«« 



**** 

* * 

* Fl * 

* * 

**** 



4>**«4t****** 



D1 *. 
* WAS * 
END OFF 
VOLOHI 
FORCED 



*«4i4>* ************ 

X 

**** 

* * 

* El * 

* * 
**** 



**** 
* 
* El 



*.X 



**** 
IJGUGOUO 

*IJGOG250 JB* 

* -.♦-♦_*-.♦_♦_♦_♦_♦ 

* READ * 

* RECORD * 

* * 

*♦♦♦ 



* 


OPIATE 




* 


* 


SEEK 




♦ 


* 


ADDRESS 




* 


* 






* 


**4>**««4*4***4>«*4> 


**♦♦ 








* 


* 








* 


D3 *.X 








* 


* 








**** X 






J]( 


;060 .*. 








D3 *. 
















* WORK 


* 




* 


AREA 




* 




*. SPECIFIED 


* 





IJGDG170 

**4i**]g;34>««!|t***i|t*)|c 

* GET ADDRESS * 

* OF WC5K * 

* AREA AND * 

* HC7E RECORD * 

* IN * 
******** ***4c*4<4c** 



IJGOG300 

**T2******* 
* SET EOV ♦ 

* £W FOR 
, ..X* OPEN 

* IF REQDIRED 
*******4<4i4t4c 



IJGOGONI .♦. 

G1 *. 

.* READ *. 

.* ERROR OR *. NO 

*. ONRECOVER ABLE. *. . . . 

*.I/0 ERROR.* 

*. .* 

*. .* X 

♦ YES ** 



IJGOGOPT .*. 

HI *. 
.* USER *. 
.* ERROR 
*. ROUTINE 
♦.SPlCIFIiD. 



iaGDG070 

i|e*4>)|i*|r3«**4>***]|t** 

* SET RECORD * 

* LENGTH AND * 

* EXCHANGE 1/0 * 

* AREA ADDS * 

* * 
****** *«4****«*«4. 



IJGDG080 

*****Q 34 ****** 4l)|l* 

*iaGDG250 JB* 
♦-.♦-♦.♦_♦_♦_*«♦_♦ 

* READ * 

* DATA * 

* * 
******** 4 *******4( 



*3|<***J1 ********** 

*IJGOG330 JB* 
*_♦-.*-*_*-*-.*-.*-* 

* READ CODNT * 

* FIELD * 

* * 
***************** 



*****H2* ********* 

* GET I/O * 

* AREA CR * 
.X* PARAMETER * 

* LIST ADDRESS * 

* * 
***************** 



*****j2********** 

* * BRANCH * * 

* * TO OSEB * * 

* * ERROR * * 
ROUTINE 



* * 



* ♦ 



***************** 



*****K2********** 



IJGDG100 X 

*****I]3********** 

* GET LENGTH ♦ 

* AND ADDRESS * 

* OF RECORD * 

* TO USER ♦ 

* ♦ 
****** 44 ********* 



****J3*4******* 

* RETURN TO * 

* FECBLEH * 

* FRCGFAR * 
*************** 



EEROPT 


* 


NO 


* 


SAVE SAVE 


=SK1P 




*.. . . 


* 


AREA 




* 






POINTER 


.* 






* 




*. .* 




X 


************* 


* YES 




***♦ 

* * 

♦ D3 * 






X 




* * 




X 


♦ *♦* 




**** 




**** 


* * 








♦ * 


* Fl ♦ 








* A2 * 


* * 








* * 


**** 








**** 



**** 

* * 

* CM * 



IJG0G310 X 

**CI»******* 

♦ SET END * 

* OF EXTENTS 
* INDICATOR 

* FOR OPEN 

* ROUTINE * 
*********** 



*****D4********** 

* * * * 

* * SVC 2 * * 

* * FETCH * * 

* * $$BOPEN * * 

* * * * 
***************** 



«****S4*********: 

* SET RECORD 

* NUN6EB IN 

* SEARCH ARG 

* TO ZERO 

* 
**************** 



.* FILE * 
* ASSIGNED 

TO 
*. IGNORE 



***** 
*JB * 
* D5* 



*****Q4**«******* 

* SET * 

* RECORD * 

* NOHBBR TO * 

* ZERO * 

* * 
***************** 



.* FBOV 


*. NO 


*. SWITCH 


,* 




♦. OH 


* 




*. .* 






*. .* 




X 


* YES 




***** 

* * 

* 




iaGnG260-a 


X 






*****j(4********** 




*1JGUG330 


JB* 




*-*-*..*_*-*-*. 


.*-* 




* READ CCONT 


* 




* RECORD ONE 


* 





***************** 



* El * 

* , * 
♦*** 



Charts 329 



Chart JC. SEMCBUO: PUT Macro (1 cf 2) 



* SDHODOO * 

* POT HACBO * 

* * 



.* 
. .♦ 
* YES 



IJGUP070 

*iH^*i^C^ ********** 
♦IJGDP120 JD* 

* DETEHHIHE HO. ♦ 

* OF I/O IBllS ♦ 

* KVD lOBK AHEA * 



*1f^2******* 

* SIT PIBST ♦ 
♦EMTII SWITCH 

.X* aiSET EOF 
* SWITCH 

* * 



* SET IBE ♦ 
OF DTF'S 
INLICATCB 
FCC CIEB 

* BOOTIHl * 



♦♦♦♦ 
IJ6DP040 X 



«*4i4i***4>)|>**««4>*4t4i 



Hff ***■£}********** 

♦IJG0P220 JC* 

♦ CHECK DASD * 

♦ ADDBESS ♦ 

♦ * 



♦IJGOP080 JC* 

* GET DATA TO * 

* BI M07EB * 

* IP BIQOIBII * 



iHf*iHfQ'\********** 

*IJGDP150 JC* 

* EXCHANGE I/O * 

* ABBA * 

* ADDBESS ♦ 
m******ilf********* 



i|i*4<**H 1 ********** 
*IJGOP200 JD* 

*-♦_*_*-♦_♦_♦_♦_♦ 

* WBITI * 

* DATA * 

* * 



* J1 *.X 

* * 
**** 

IJ6DP060 X 

1^i),f**J^********** 
*IJGOP290 JD* 

* CCMPLETE I/O ♦ 

* IP BEQDIBED * 

* * 
««4<**4i***4>*:(>***** 



****K1********* 

* BETOBN TO * 

* PBOBLEB * 

* PBOGBAH ♦ 



innnnfii2********** 

* * 

* BESTOBE BSEB * 
.* BIGISTEBS * 

* IP BEQOIBID * 

* ♦ 



* SDHODOO * 

* HO?E BECOBD * 

* SDBBOOIIHI * 

funi************* 



IJGOP080 X 

*4>4i4i4iB4** ******* 

* 

* HOVE ALL 

* BEQOIBBD 

* DATA BITES 

* 



* BETOBM TO * 

* CALLING ♦ 

* BOOT IN E * 

4i4>4>**4i**4>4i4i*4i*4i 



* SET EOP * 

* SWITCH AND 
.X* RESET CLOSE 

* SWITCH 

* * 



* SDHODOO * 

* CHICK ACIBISS ♦ 

* SOBBOOTIHI ♦ 



IJGOP220 X 



i***4i***«*«i»*4i*4>: 



«««**C5*** ******* 

* * 

* SET DATA * 

* HKGTH ICOAL ♦ 

* TO BLOCK SI2E * 

* * 

*♦♦♦ I 

* ♦ , 

* D5 *.X. 

* * . 
**** X 

IJGOP230 .*. 

D5 ♦. 

.» *. 

.* CLCSI *. I 

*. SWITCH .♦. 

*. CW .* 

♦. .* 

*. .* 

* HC 



***** 
♦JE * 
* A3* 



4i«4i«f 2********* 

* SDHODOO * 

* EXCHANGE * 

* SOEBOOTINE * 

i|i4i**4«««4>**4>*** 



IJGOPISO X 

«*4.*4tG2********** 

* SAVE * 

* ADDBESS OP * 

* OLD I/O * 

* AHEA * 

* * 



«*4i4t4>R2*** ******* 

* ♦ 

* GET ADDBESS * 

* CF NEW * 

* I/O ARIA * 

m**iti'*i**Dtili******** 



iHnnt,*j2********** 

* STCRE CLD * 

* I/O ABE A * 

* ADDBESS IN * 

* NEW I/O ABIA * 

* AEDR ABEA ♦ 

«4t**« * all** 4i *4>4r*** * 



****I^2********* 

* EITOBN TO * 

* CALLING ♦ 

* ECOTINE * 
*************** 



* * SVC 2 * * 

* FETCH $$BCEEN ♦ 

* *IF BEQOIBEB* * 

* ♦ * * 
***************** 



PILE *. NO 
ASSIGNED .*... 

.* 



****S1|********* 

* SVC 9 * 

* BBTORH TO * 



* J1 * 

* * 
**♦* 



**** 

*JR * 

* J1 *.X 



*****S5*** *****«; 

* 

* GET 

* TRACK 

* CAPACITY 

* 

****************; 



P5 *. 
.♦ *. 
NC .* CLOSE *. 
...*. SWITCH .* 
*. CN .♦ 
*. .* 
*. .* 
* YES 



**H3******* 

♦ * 

* BESET 
EOr AND FEOV 

* SWITCH 

* * 
*********** 



*****j3********** 



***************** 



***♦ 
IJGOP270 

*****Q||** ******** 
*IJGDP160 JD* 

*.*_*.*_*.*.«.*.* 

* OPDATE DASD * 

* ADDRESS * 

* * 
***************** 



. NO .* EXTENT * 
X...*. OPPEB LIMIT 
*. EXCEEDED .* 
*. .* 
X *. .* 
♦*** * YES 

* * 

* D5 * 

* * X 
**** **** 

* * 

* C3 * 

* * 
**** 



*****(35*** ******* 

* DETEBHIHE * 

* EFIECTIVE * 
*LE»GTH Cf TBACK* 

* FOR ONKEYED * 

* RCDS ♦ 
***************** 



IJGOP2€0 X 

*****f]5*** ******* 

* * 

* OPDATE ♦ 

* SEEK * 

* ADDRESS * 

* * 
***************** 



****J5********* 

* RETOBH TC * 

* PBOBLEB * 

* PR06BAH * 
*************** 



* D1 * 

* * 
**** 
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Chart JE. SDMODUO: Close RcutiEe 



♦ JC ♦ 

♦ EE* 



* SDHODDC ♦ 

♦ CLOSE EODTINE * 



* ♦ 
♦SAVE REGISIEHS ♦ 

* AND POINT TO ♦ 

* SAVE AREA * 

* ♦ 

4t « « * * :» :(< 4e 4i * « * 4< ♦ * * 3^ 



♦IJGOP120 JD* 
♦_*-*_♦_♦_♦_♦_♦_♦ 

* DETERMINE NO. * 

* OF I/O AREAS ♦ 

* AND HOPK AREA * 



* * 

* E3 ♦ 

* ♦ 

♦ *♦♦ 
IJGDP350 i 

**E3******* 

♦ * 

♦ SET tATA 

* LENGTH TO 

♦ ZERC 

♦ ♦ 



SDHODOO MACRO PARAMETER 
OPTION. DECTSICN DOES 
NOT AP§1AR IN AM 
ASSEMBLY LISTING 



FEOVD 
YES 
♦ AU 



* ENOOGH *. 

SPACE LEFT .* 
*. TRACK .* 



F1 *. 
* EOF 
SHITCH 
SET 



.* ENOUGH 


♦. 


YES 


X*. SPACE LEFT 


.♦ 




*.0N TRACK . 


♦ 




*. .♦ 






*. .* 




X 


* NO 




*♦♦♦ 

♦ B3 
* 


i 






**-^2******^ 






* SET EOF 


* 




♦ SNITCH TC 


# 




* ENTER POT 


* 




* NODDLE 


* 





3|i«4:|i:|c*«4>*>lc* 



* 33 * 

* * 



♦♦G1******* 

♦ * 
SET 

EOF 
SWITCH 

* ON * 



.♦DPPEE XTNT 
*. LIMIT 
♦.EXCEEDED . 
♦ . .♦ 






♦ B3 ♦ 

* * 
**♦♦ 



♦ SET EOF ♦ 
♦SNITCH TO ENTERS 

♦ POT RTN * 



♦ ♦*♦♦ 

♦ JC ♦ 

♦ GU + 



D3 ♦. 
.♦ *. 

FEOV SU ON 



■tL*-£2******* 



4r4:»«44«*>»i|>* 



♦laGDPISO JC^ 

*-.*-»_4_*-Hi -♦_♦_♦ 

♦ EXCHANGE I/C ♦ 
♦AREA ADDRESSES ♦ 

1r * 

**:*ii^**it* ********* 



*****Q2********** 

♦IJGDP220 3C* 

♦ _♦-.*-♦-.♦..♦_♦,♦-♦ 

♦ CHECK CASE ♦ 

♦ ADDRESS ♦ 

♦ * 
***************** 



**itc**^2^*^******* 
♦IJGOP200 JC+ 

♦ WRITE EATA ♦ 



******** 
**** 

♦ J3 *.X 

* * 
**** 



33 



***s**3H*******i*** 

* * 

* RESTORE USER ♦ 
.X^ REGISTERS ♦ 

* 7-13 ♦ 

* ♦ 

****************:* 



*****f^2********** 

* * 

* BESTC5E DSEB ♦ 

* REGISTERS ♦. 

* 8-12 ♦ 

* ♦ 
***************** 



****^H********* 

♦ SVC 9 ♦ 

♦ RETURN TO * 

♦ $$BOPEN ♦ 

**:*************, 
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Chart JG. 



SEMCDUU: 



PUT Macro 



♦***A1 *♦***♦♦*♦ 

* SDMODOD * 

* PUT MACEO * 

* * 



SDMODOO BACFC PAEAKETEB 
OPTION - DECISION DOES 
NOT APPIAS IN AN 
ASSEMBLE LISTING. 



BDONLY 

= YES 

*A2 



«««:(< ltl(; latest! Jtt^i^^^^'** 

* SAVE DSEB'S * 

* EEGISTIES * 

* AND A * 

* POINTEB TO ♦ 

* TEE SAVI ABEA ♦ 



* SAVI USEE'S * 

* REGISTEBS * 



««4«:t<*i» :»:»*«:("(<« 



**C3******* 

* TUEN ON * 
CHAINING 

BITS IB 

ecu 

* ♦ 



13600130 X 

* TORN CFP * 

* CHAINING 
* BITS IN 

* ecu 

* ♦ 



FEOVE 

= YES 

♦A2 



* * 

TOEN ON 

POT 
SWITCH 

* * 



NO .* 2 
...*. I/O ARIBS 



.* NECESSARY *. 
. TO HAIT TO . 
♦.CALL OPEN.* 



«:!c4:4*Hl********** 

*IJGUD250 JH* 
*-*-*_*_*-♦-*-♦-♦ 

* EXCHANGE * 

* AEERESSES * 

* ♦ 



IJGUD220 

4:<c:4c«*K1****=«'***** 

* DPEATE SEEK * 

* ADDRESS, SET * 

* EEAD COUNT ♦ 

* TC 'NOP', SET * 

* COONT IN CCW * 

«:f*«<<****4(:4t <:*♦♦♦* 



FECV ISSOIC .* 



* SVC 50 ♦ 

* POT ILLEGAL * 

* AFTER FEOV * 

:(c :«, 3): 4: :(<:;<« ifc «« sgc :tc «:(( 4c 



**G2******* 

* * 

TOEN CN 

'2ND GET' 

SfllTCH 

♦ * 



*_*_*.♦_♦-.*_♦_♦_« 



i^*ilfi)^:i,************ 



♦♦«**j2********** 
♦IJGOE250 JH* 

* EXCHANGE * 

* AIDHESSES ♦ 

* * 



* GET * 

* KDHBEE CF * 

* BYTES TC ♦ 

* El MOVIE ♦ 

* ♦ 



*IJG00370 JJ* 
♦_*_*_*_♦-.♦-♦_♦-♦ 

* MOVE DATA * 

* FECM WOEK * 

* ARIA ♦ 

:|i«*«43|.4*4 4****«*4 



* EU * 

* * 



RDONLY 

= YIS 

*A2 



iti^i^^fH^YH** ******* 
* 

* RESTORE 

* OSER'S 

* REGISTERS 
♦ 

i^:f ************** 



*«* 4*1:5 4 «******«« 

* * 

* RESTORE * 

* USSR'S * 

* REGISTEBS * 

* ♦ 
4<])c*44it<*«**4 44*«44 



*4*4«4444444 444«« 



****G4 ********* 

* RETORN TO * 

* PROBLEM * 

* PROGRAM * 



.* ENI 


*. 


NO 


OF 




* 




*. FILE 


* 






♦ . .* 








*. .* 








* YES 






***♦ 
* 

* EU 
* 

**** 


4444J 3* ********* 




UGoumo 


.1(* 




_4-*-*-*-*-*. 


*- 


-* 




WAIT FOB 




* 




I/C CCHELETE 


* 





4******4** 



♦*K3******* 

* TOEN CN * 
END OF 

FILE BIT 
IN CCE 

* * 
4444444444* 



**K4******* 

* RESET * 
♦POT, 2ND GET,* 

* AND EOF * 

* SWITCHES ♦ 

* * 
**4*4****** 



**** 

* ♦ 

* B3 * 

* ♦ 
**** 



* Et * 

* ♦ 
**** 
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Chart JJ, SDMODUU: Subroutines (2 of 3) 



4i4t*4>4i 
*JH ♦ 
* J5* 



IJGDDSEB X 

ilHtiiHif*]^-\jf ********* 
♦1JG00310 JO* 

4c. *.*.*. *-«.*.*.* 

* OSER ERBOR ♦ 

* BOOTISE * 

* * 



■^t:***^ \********** 

♦IJG0036C JO* 

♦ READ ♦ 

♦ COO NT ♦ 

♦ ♦ 



444I4IC2********* 

♦ BITHRH * 

♦ POI IGKCEl ♦ 

♦ CFTION ♦ 
Hit************* 



IJGnO280 X 

41****0 1********** 

*1JG00180 Jfl* 

*.*-*.*.*-*.*.*.* 

* GET ♦ 

* DSTA ♦ 

* * 
***************** 



*****{•')******«*** 

♦10600260 JH* 
*-*.*.*.*.*_*.*-* 

* WAIT FOB * 

* COHPLETICS ♦ 

* * 
***************** 



****P1********* 

♦ betobn to ♦ 

♦ CALLING ♦ 

♦ BOOTINI ♦ 

*************** 



****](3*****4i*** 

* SDHCBOO ♦ 

* DSIB EBROB * 

* SOEBOOTINE ♦ 

41*******44*44** 



* BOVE 1/C * 

♦ ADDRESS TO * 

♦ LIST * 

* * 
***************** 



*****C 3* ********* 

♦ LOAD BIG 1 * 

♦ IITH ♦ 

♦ LIST * 

♦ ACDBISS * 

♦ * 
***************** 



*****]334i ********* 

* ♦ EALR * * 

* ♦ TC OSIE ♦ * 

* ♦ IRBOB ♦ ♦ 
HOOTINE 



****j^l(********* 

* SDHODOO ♦ 

* HOVl ♦ 

* SOBHOOTINE ♦ 
***4****4****** 



♦ SET REGISTER * 

♦ EQOAL TO * 

♦ 256 ♦ 

♦ * 

***************** 



* 256 FROM 

♦ NOHBER OP 

♦ BITES TO 

* BI HOVED 
**************** 



* * 



* * 



****** **********it: 



***************** 



****S2**4<*****4' 

♦ BETORN * 

♦ PCS BEAD ♦X. 

♦ AND IRITE ♦ 

*************** 



Htl^***J2********** 

* * * * 

* * SVC c * * 

* ♦ BETRT ♦ ♦X 

* * I/O ♦ » 

* * * ♦ 
***************** 



****£()*«******* 

♦ RETORN TO ♦ 

♦ CALLING * 

♦ ROUTINE ♦ 

*************** 



**4*]^5**«4***4* 

♦ SDRCOOO * 

♦ R15AD COCNT * 

♦ SOBROOTINI * 
*************** 



XJ600360 

*****^5*********: 

* SAVE 

* READ DATA 

* CC« IN 

* SAVE AREA 

* 

****************: 



♦*C5******* 

* TORN OSI ♦ 
CHAINING 

BIT AND SET 
COMNANI 

* CODE ♦ 
*********** 



***T)5************ 



***************** 



*****]g5 ********** 

♦ * * * 

♦ * SVC 7 * » 

♦ ♦ RAIT * ♦ 

♦ ♦I? RECOIBED* * 

♦ * * ♦ 
***************** 



*****fC*** ******* 

* RESTORE ♦ 

* READ * 
.* CONHAND ♦ 

* ERCH * 

* SAVE AREA * 
***************** 





62 *. 




♦ HAS ♦ 


NO .* 


LAST 


...*. OPERATION 


♦ 


WRITE 




** . * 


X 


♦ . .♦ 


***** 


♦ lES 


t'V* 






* * 


X 


* 


***** 


IJGOO260 


»JK ♦ 




♦ El* 




♦ * 




* 




iJGOomo 



63 *. 
.* WAS ♦. 
* LAST^ *. YES 
OBEEATICN A .*..«. 

*. IRITI .* 



****Gli ********* 
* RETORN * 

.X* POR * 

WRITE * 



********* 



*****{] 3* 4**44**** 

*IJGD036C JJ* 

*-*.*- *-*.*.*.*-* 

* REAL * 

* CCOKT * 

* * 
***************** 



****J3«4**44*4* 

* RETOBH * 

* FOB * 

* READ * 
***4***4******* 
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Chart KA. SEMCDW: READ Macro 



* SDHODH ♦ 

* BIAD HACBO ♦ 

* * 
itif ************* 



**** 
*KE ♦ 
♦ J2 



**** 
IJGIBEAD 

* 

♦ SAVE 

♦ QSEB 

♦ BEGISTEBS 

* 



**** 
*KC ♦ 

♦ C<» ♦.X 

* ♦ 
**** 



iHH***QyitiiHtt*****iH* 
♦UGWEW KD* 

* GET BECOBD * 

* LENGTH ♦ 

* * 



♦ STOBI ♦ 

♦ BECOBD ♦ 

♦ LINGTH IN ♦ 

♦ BEAD * 

♦ ecu * 



♦At* 
SDMODN MACBO 
PARAHETEB 
OPTION — DECISION 
DOES NOT APPEAi^ 
IN AN ASSEMBLY 
LISTING, 



♦*♦♦ 

* * 

* B2 ♦ 

* * 
*♦♦* 



NOTEPNT 

= YES 

♦ AU 



.* NAS A ♦ 
.POINTS HACBO 
*. ISSUED .* 

*. .♦ 



♦ *♦♦ 
i|> * 

* E3 * 

* * 
**** 



IJGNHOLD X 

*ifif22* *********** 

SVC 3E 

* BEAt ♦ 

B5C0BE AND 

♦ HOLE ♦ 

TBACK 



♦ **♦ 

♦ ♦ 

♦ C3 * 

♦ ♦ 
*♦*♦ 



* F2 * 

♦ ♦ 
**** 



if^iHiiit*'Q2********** 

* SET BECOBD * 

* NOSBEE * 

* IN SEABCH ABG * 

* TO 1 * 

* * 



X 

♦♦♦** 
*EE * 
♦ B1* 



EBBOPT 
SPECIFIIE 

*Aa 



D3 ♦. 
.*BCDTINE*. 
.* ENTEBEE 
. FBOM BEAD 
♦, EBECE . 
♦BODTINE* 
». .♦ 
* NO 



El ♦. 




♦♦j2******* 


.♦ *. 




♦ SET * 


.* TRACK *. YES 


* POINTS * 


*. LIMIT BEACHED.* 




* ISSUED * 


♦. IN PREV .♦ 




♦ SNITCH * 


♦.BIAD .♦ 




** ♦♦♦ * 


♦ . .* 


X 




♦ NO 


***** 






*KC * 


**** 




* B1* 


* * . 




* * 


* 12 ♦.X. 




♦ 


* ♦ . 


IJGNSOPP 


*♦♦♦ 


IJGNSTAB X 




X 


*****f'\^t**^t***i^** 




in^**ii,j2********** 


* STOBE I/O * 

* ABEA ADDBESS * 




* * 




* EESTOEE * 


♦ IN BEAI * 




* DSEB * 


♦ CCN * 




♦ BEGISTEBS * 


* * 




* * 


**itt****tt********* 




*itt*t***itLt ******** 



.X.. 

X 

♦*♦*♦ 
*KE * 
* E5* 

♦ ♦ 



*4>*«*G 1 **** **♦*♦* 

* MODIFY * 

* READ * 

* CCW TO * 

* BEAD DATA ♦ 

* * 
iti**************** 



44«4«H1 ********** 

* SET * 

* BEAD COUNT ♦ 

* CCW IN * 

* BEAD CCW * 

* CHAIN * 



**4>««J14.:|>*4«*«4>*« 




SET COUNT 






FIELD ID 






IN 






SEABCH 






ABGUHENI 




If**************** 




i 






♦*♦♦ 





**G2******* 

* SET CC ♦ 
AND SLI 

BITS ON IN 
READ EATA 

* CCN * 
^iit'********* 



.♦. 

H2 *. 

.* HOLD *. 

.* YES AND * 

.UPDATE YES 

♦ . ♦»«» .♦ 



.* TRACK *, 

**. .** 

* NO 

xj 


YES 
*, .. . 

X 

**** 
* 

* B"^ 


* 
**** 

*«*l^2************ 

* l?St° • 

* BECOBD * 



iln^ii^**:^in^■^**i^:^ii^*^l.* 
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Chart KC. SDMODW: READ, WRITE Kacrcs, Coirircn Routine 



IJGHSOfF X 

* SET TRACK * 

♦ LIMIT 
* BEACHED 

♦ INDICATOB 

* OPP * 



IJGHSTCH X 

*4c4< 4>4<C 1 **** **■*'•"«* 

* GET ♦ 

* SIABCH * 

* ADDBESS ♦ 

* CCHH ♦ 

* * 

* :|> 4< * i|i III 4c ♦ 41 * i|t * Hi ifi * * 4< 



» REFEBENCES 
TC KCE1: 
KAE1, KBD3 



IJ6RSLD X 

«* « :» )|<B 3 :» 4 « :» *« 41 *]|i Hi 

* OPEATE * 

* TBACK » 

* NUMEIB * 

* BY 1 ♦ 

* * 



C3^ ♦. 

.*HEAE tIMIT 
*. ALBEAET 
♦. BEACHEE . 



*. BEACHEE .* 

♦. .♦ 


MO 
♦» . . . 


♦ . .* 
* lES 


.1.. 

♦ ♦ 




♦ B3 * 
41 4> 




**** 



El ♦, 
.♦ ♦. ♦♦♦*i2********* 

.* ROUTINE *. YES * RETOBN TC ♦ 

♦ .ENTERED EBOH .* X* CALLING * 

*. CLOSE .* ♦ BOOTINE ♦ 

*. .* 
* NO 



♦ . 



♦ OPEATE * 

♦ CYLINDEB * 

♦ NDMEER * 

♦ BY CWE * 

♦ ♦ 



* SET HEAE * 

* NDHEEB * 

* TO LOWEB ♦ 

* LIMITS * 

* ♦ 



EDONLY 

= YES 

♦ Fi» 



* * 

* GET ADDRESS * 

* OP DTP * 

* TABLE ♦ 

* ♦ 



* * 

* GET ADDBESS * 
X* CF DTF * 

* TABLE * 

* * 



♦*G2******* 

* SET END * 
OF DTP»S 
INDICATOB 
FCE OPEN 

* ROUTINE ♦ 



* ♦ * * 

* * SVC 2 * ♦ 

* * FETCH * * 

* * JSBOPEN * ♦ 

* ♦ * * 



* P3 ♦.X 



IJGHSSTE X 

* STORE * 

* DPEATEE * 

* AEEBESS IN * 

* SEARCH * 

* ARGUPEKT ♦ 



* SET * 

* RECCED ♦ 

* NUMBER ♦ 

* TO ZERO ♦ 



* * 

* GET TRACK * 

* CAPACITY ♦ 

* CCNSTANT * 

* ♦ 
*if *************** 



**** 

♦ * 

♦ A4 ♦ 

♦ * 
**** 



^,*A'**f^^********* 

* RESTCBE 

* TRACK 

* CAPACITY 

* IN DTP 

* 



* SET NEW 

* ADDRESS 

* IN COUNT 

* FIELD ID 
* 

H,****f ********** 



* SET ♦ 

* RECORD NUHEE*? * 

* IN COUNT * 

* FIELD TO 1 * 

* * 



IJGWREAD+a 



♦ F4 
SDMODW MACRO 
PARAMETER 

OPTION — DECISION 
D012S NOT APPEAR 
IN AN ASSEMBLY 
LISTING. 



.* 


IJGWETRY 






.** 






3^ *. 


*i)i*itii)^j2********** 




J3 *, 






.♦ ♦. 


♦ GET 


* 




* *. 






.* BDONLY *. YES 


* NE« SEARCH 


* 


. * 


RCUTINE 


*. 


NO 


♦ . s YES .* 


..X* aT!ni»i?<?s 


* 
* 


*, ENTERED FROM 
♦. WRITE . 


♦ ' 


*. . . . 


*. *FI» .* X * CCHH 




*. .* 


* 


* 




♦ . .* 






*. .* 


*if *************** 




*. .* 




X 


* NO 


, 






* YES 




* i 

* A4 




• 






• 






X 






X 




* i 




**** 






***** 




**** 




* * 






*KE ♦ 






X 


* P3 ♦ 






* CH* 






1f***ii:f;^'\^c******Ht:^i* 


♦ * 






* * 






* RESTORE ♦ 


**♦* 






* 






* ADDRESS * 








IJGWINST 






♦ OF DTF ♦ 














* TABLE * 















:|i :|c 4> 41 4t * * >!< 41 * * :•> 41 4t ♦ ♦ * 
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Chart KE. SCMODW: CHECK Wacrc 



4<4<4'4iA11"l"l"l"*"!'')"^* 




. * *. 


* SOMODW ♦ 

* CHECK HACRC * 

* * 




.* *. 

*. EOP .* 

*. . * 

* . . * 

♦ NO 


♦ ♦♦♦ 

♦ ♦ 

♦ * *.7. 

♦ * 


* REFERENCES 
TO K1E1: 
KAD3, KBH5 








* * 

* ♦ sv 

X* * WA 

* *IF RE 


* ♦ 

: 7 * ♦ 

IT * * 
jaiRED* * 


IJGSONRC X 

♦ SHOT ♦ 

♦ DNRICOVERRELE * 

♦ I/O ERROR * 

♦ BIT * 

♦ IF REQUIRED ♦ 



* SET CHECK * 

* SWITCH ANE 
* ERROR INDIC. 

♦ OFF 

* * 



♦*C2******* 
^SET 'CHICK * 

* AFTER 
EEAE' 

* SWITCH 

* * 



* ♦ SVC 36 * * 
.X* *FREE TRACK * * 

* *IF RECDIRID* * 

* * * * 

* * 

* B3 * 

* * 
♦ *♦* 



* RFTDRN TO * 

* USER ♦ 

* * 



♦ ♦»=> 

* * 

* D3 * 



WRITE 

OPIATE 

CHECK 



**** 

* A2 * 

# * 
**** 

IJGWMTIR 



F1 *, 
.♦ WRITE *. 
.* ERROR OB *. NO 
*.DNRICOVERABLE.*.. 
♦. ERROR .* 



DSER 

ERROR 

ROUTINE 



SET CCW 

TC HEAD 

COUNT 



* * * * 

* * EALR * * 

* * TC USER * * 

* * RCDTINE * * 

* * ♦ ♦ 



«**:«(««««««*««««*« 



* STC 
3EAE 
* COUNT * 



IJGWOPT .♦. 






X 


G1 *. 






«««««G2«**4«'»')<*«4 


.♦ ♦. 






* « ♦ * 


.* USER *. 


NO 




* * SVC 7 * ♦ 


*, ERROR .* 






* * WAIT ♦ * 


*. ROUTINE .* 






* *IF REQUIRED* * 


*. .* 






* * * * 


*. .♦ 


X 




«««<(«4:>!<4<««4««)«e*«« 


* YES 


**** 






>(t 


i<t 






* B3 


* 






* 


* 






♦ ♦** 




X 




IJGWCCHP X 


««{}1«««4t4<«4< 






ii,ilifl2******* 


♦ ♦ 






* SET * 


* CLEAR * 






* END OF * 


* UPEATI ♦ 






* TBACK * 


* SWITCH * 






♦ INDICATOR * 



IJGWIGN X 

**F3******* 

♦ LOAD MOD * 

* REGISTER 

* SHUT 'CEECK 

* AFTER REAE» 

* SWITCH * 



G3 *. 
.* WAS * 
lES .* LAST 
....*. COMMAND 
*. READ 



***Et** ****♦*♦♦*♦ 

♦ SVC * 
.X RETRY 

* I/O ♦ 



* * 

* B1 * 

* * 



.* HCLE *. YES 
*. ANE UPEATE .*.... 
*. =YES .* 



* * 



* * 



:»4:ec:(c« *«:((#«« 



♦ J1 *.X 



***♦ 

IJGWUSER X 

* LOAD USER * 

* ROUTINE'S * 

* ADDRESS * 

* INTO REG 1U * 

* * 



* LOAD I/O * 

* AREA ADDIJESS * 

* IN REGISTER 1 * 

* OR MOVE IT * 

* TC USER LIST * 
iHf *************** 



«*44«#*«««* 



SVC 36 

* * FR^l * » 

* * TRACK * * 

* *IF REQUIRED* * 



.*. 








IJGWOPOF X 


02 *. 






X 


**J4******* 


.*£HOULD *. 


♦***j3********* 


* * 


.♦READ ERROR *. YES 


* 


RETURN * 


* SET UPDATE * 


BE .* 


* 


TO 


USER ♦ 


* SWITCH 


*. SKIPPED .* 


* 




* 


* OF? * 


*. .* 


*************** 


* * 


*. .* X 








*********** 


* NO ***** 










♦KA * 












* B1* 












* * 

* 












IJGWREAE 




















X 


****K2********* 








****K 4** ******* 


RITOSN TO * 








* RETURN 


CSER * 








* TO 


OSER 



*************** 



*************** 
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Chart KG. SDMODW: POINTS, FREE, CNTRL ^!lacrcs, and SDWCE: FEOVB Macrc 



* SDBODi * 

* PCINTS MACRO ♦ 

4c * 

4 :« « ]|i 4i 41 * * 41 4 * Hi * * 4> 



* SAVE ♦ 

* DSBB ♦ 

* REGISTER * 

* * 



♦ * 

* SET POINTS 
* SHITCH 

♦ ON 

* ♦ 



i^****D'\ ********** 



***************** 



*****■£}********** 

* INITIALIZE ♦ 

* lOINT ARIA * 

* TO INITIAL ♦ 

* EXTENT LOSER * 

* LIMIT * 
***************** 



***** 
*KF * 
* F2* 



****H2******** 

* SEMODW 

* ERIE MACHO 

************** 



* TRACK * 

HOLD OPTION 
♦.SPECIFIED.* 



*****q2********** 

* * 

* SAVE * 

* OSER ♦ 

* REGISTERS * 

* * 
***************** 



*****j^2********** 
♦IJGHFW KD* 
♦_♦_*.*_♦_♦-♦-♦-* 

* GET ADDRESS ♦ 

* AND RECCRE * 

* LENGTH ♦ 
***************** 



*****-£2********** 

* SET ADDRESS ♦ 

* ANE RECORD * 

* LENGTH IN ♦ 

* ecu * 

* ♦ 
***************** 



*****-p2********** 

* * * * 

* * SVC 36 * * 

* * FREE ♦ * 

* * TRACK * ♦ 

* ♦ * ♦ 
***************** 



*****Q2********** 

* ♦ 

* RESTORE * 

* USER ♦ 

* REGISTERS * 

* * 
***************** 



****^2********* 

* RETURN TO * 

* PROBLEM * 

* IBOGBAM * 
*************** 



****A3********* 

* SEHOEiJ * 

* CKTFL fACFC * 

* * 
*************** 



IJGWCTL X 

**E3******* 

♦ SET * 

* CCMHANE 

* CHAINIKG FIT 

* OFF IN SEEK 

♦ CCW * 
*********** 



***C2************ 

♦ SVC * 
CCNTFCl 

* SEEK * 

***************** 



SOMOD HACRO PARAMETER 
OPTION, EECISICN DCIS 
NOT APTIHT^ IN ASSECBLl! 
LISTING. 



*****DH****** 



***************** 



**-£2******* 

* SET ON * 

* CCMMAND 
CHAINING BIT 

* IN SEEK 

♦ CCl ♦ 
***»*♦♦♦♦** 



^^^^ES*'^******* 

* ENTRY * 

* FROM FECVE * 

* MACRC * 
*************** 



X 


*****fH********** 


F5 *. 


***-p2********* 


* ISSOE HNOTE * 


. * 


RETDEN TC * 


* NO FILENAME * 


NO .♦ FILENAME 


PROEIEM * 


* SPEC-MACl^O *X... 


♦. SPEC 


PROGRAM * 


* IGNORED * 


♦. ♦A? 


************** 


* * 


*. 



********** 



****QH********* 

* RETURN * 

* TO PROBLEM ♦ 

* PROGRAM * 
*************** 



.* FILENAME * 
. SPEC AS BEG 
*. *A5 .* 



*****Yi^********** 

* ♦ 

* STORE * 

* CONTENTS * 

* O^ HEG * 

* :» 
***************** 



*****JC^*** ******* 

* * 

* LCAE ♦ 

* AtDT^ESS OP * 

* t^ECSDEV * 

***************** 



****f^^********* 

* SVC 2 * 

* FETCH * 

* t«10SDFV ♦ 
*************** 
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Chart LB. $$BCSD01: SD Open^ DLEL Extents 



*♦*♦ 

* * 

* A2 * 



* * 

* Al ♦ 



* $$BOSD01 * 

* * 



PRBGS 

* INITIALIZES ♦ 

* CCB»S ♦ 

* RELOCATE ♦ 

* CCl'S ♦ 
« * 



CI *. 
.*BEENTBY*. 
* PBOH 

MESSAGE 

*. WRITER . 

*. .♦ 



INITBS J 

* LCAD DLBL 

* AND EXTENT 

* EASE 

* REGISTERS 

* 



GET 
* SPECIFIED ♦ 
DLBL 
* RECORD * 



* * 

* C2 * 

* * 



PRECONVT X 

* CONVERT ♦ 

* EXTENT TO ♦ 

* DASD * 

* ADDRESS * 

* * 



DASD *. NO 
ADDRESS .♦... 
VALID .♦ 



*««4i«««*4i4>*4«««4« 



DIEL PCR 
SD 
. FILE 



♦ A2 

* 



♦ RESET * 

♦ HESSAGE * 

* RETURN ♦ 

* INDICATOR * 
4> * 



SETIND X 

«**4i4tS1 ********** 

* SET EXTENT * 

* CONVERTED * 

* INDICATOR IN * 

* LABEL RECORD * 



WRITE 

* MODIFIED ♦ 

STSRES 

* EXTENT * 

RECORD 

1Hf*iHmif ********** 



* RESTORE * 

* CCB * 

* FROM WRITE * 

* TO REAI * 

* * 
**tf^i^1t:1^lf ********** 



**** 

* * 

* DU * 

* * 
**** 



DLABOK 
YES .** 



CDTPDT 
FILE CR 
.WCRKPILE 
*, . * 



4i*4iC3 *****'******* 

* WRITE * 
.X MESSAGE 
* UNeil * 

***************** 



****^2********* 

* SVC 50 * 

* CANCEL * 

* * 
*************** 



***12************ 

* WRITE * 
.X HESSAGE 

♦ tJNSei * 

***************** 



. * *. 






****CK,********* 


.* EXTENT 


*. 


NO 


* SVC 2 


*. PREVIOOSLT 




*... . 


* FETCH 


♦.CONVERTED. 


♦ ' 




* ttBOMSGl 


*. .♦ 






*************** 


*. .♦ 




X 




* YES 




**** 




**** 




* * 




♦ * . 




* El * 




* Dl» *.X. 




* * 




♦ ♦ , 




**** 




**** X 








CKMOHE .*. 








D4 ' *. 








. * *. 








. * MORE 


*, 


NO 




*. EXTENTS 




♦ 




*. AVAILABLE. 


*" 












. 



***************** 



****j2********* 

* SVC 50 * 

* CANCEL * 

* * 
*************** 



***j^H************ 
READ NEXT 
* SYSBES * 
EXTENT 
* RECORD ♦ 

***************** 



**fH******* 
* * 

SET * 
RET^EADI ♦ 
TO NOP * 

*********** 

', **** 

* * 
..X* C2 * 

* * 
**** 



FILE 

ALREADY 

OPEN 



***q^************ 

REREAI 
* FIRST * 
EXTENT 
* RECORD * 

***************** 



EXTENT 


♦ . 


NO 


LIMITS 




*. .. . 


CHITTED^ 
'*. .*" 


♦ 






X 


* YES 




**** 

* * 

* Aa * 
**** 








. *. 




MOVSYK 


02 *.^ 




***j2************ 


INPOT 


*. 


NO * WRITE * 


FILE 




\ "Siilf . 




* 



***************** 



****Y,2*'******** 

* SVC 2 * 

* FETCH ♦ 

* $$ECMSG1 * 
*************** 



*****fi^********** 

* * 

* SAVE * 

* RECORD * 

* AED»^ESS * 

* * 
***************** 



****jS********* 

* FETCH PHASE * 

* SPECIFIEt EY • 

* tSBOSDCC * 
*************** 
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Chart LD. $$BOSD02: SD Open, DLEI Extents fcr 3340 (2 cf 2) 



♦♦**♦ 

*LC * 

* F3* 
♦ * 



* * 

* SET LUB ♦ 

* fiEDB IN * 

* D1F TO DA * 

* ♦ 



EXTENT 
LIMITS 
PRESENT 



*ili:ltcQ2-l)'**'t******** 



4i4>]|[ :»* :» 4 4:t> :)<* 4«4**4c 



* * 

* CflNCEt * 

* * 



***♦ 

* LC * 

* G1 ♦.X 

**** 

X 
*in**Ttij2* ********* 

* * 

* CONVlEl * 

* EXTENIS * 

* IKFC ♦ 

* i>f 



COMPXTNT ,♦. 

G3 *. 
.* EXT. *. 
.* VALID FCP *. KO 
♦. THIS MODULE .*.... 
*. SIZE .* 
♦. .♦ 
*. .* 
* YES 
***♦ 

♦ ♦ . HEFEfiENCES 

* * *.X. TO LDH3: 
*^^* . LCF3, LCH1 

TESTLAST .♦, 

H3 ♦, 
.♦ *. 

. NO 



***G4** *♦*♦***♦*♦ 



«3|c)K4t4c#««3|c:ti4t«:|c*««* 



***HU ♦***♦******♦ 

♦ SIAD NEXT ♦ 
LABEL INFO. ... 
BECCHD * 



*4c4.4<)|c4t4c:t<* 



:4c :tc :^ 3). Q 5 4 :» * « :» * « * :» 

♦ ♦ 

.X* FITCB ♦ 

♦ * 



**H5******* 

♦ ♦ 

SET 

T?Ei^IAD 1 

SS OFF 

* « 



***JU***** ******* 

* READ * 

.X FIRST 

* DLBL INFO * 

4**************** 



**** 

* * 

* 12 * 



****f(3********* 

* FETCH * 

* NEXT PHASE ♦ 

* * 

4**4***4*****44 
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Chart LF. $$BCSDI1: SD Open Input, DLBL Extents (2 of 2) 



***** 

♦LE * 
♦ FU* 



TESTSYH .*. 




LOADMSG 






A1 *. 




i^in^i^it,l2********** 




.* *. 




* SET DP TO * 


****A3********* 


.* SYMBOLIC * 


. NO 


* ISSDE ♦ 


* SSEOSEII ♦ 


*. UNIT IN 


.*.... 


....X* MESSAGE ♦ 


* MOVE * 


*. DTF .* 




* t)383l * 


♦ ECOTINl ♦ 


*. .* 




* ♦ 


4t««**4.3(i:»9|c4i:|i4c*** 


*. .♦ 




ili*******^****^*;!!* 




* YES 




♦ ♦** * 

♦ LE ♦ 

* H2 ♦.X. 

* ♦ 
*♦** 






X 




MOVESYH X 


MOVEUNIT X 


****«Q1 *«***«*«** 


**4i«itcE2't<4t******** 


4(]|t:|<t*B3********** 


♦ INITIALIZI 




* * 


♦ INITIAtIZE ♦ 


* EXTENT WITH 




* GET SYHECLIC * 


♦DTF, CCE, OPEN * 
* AND EISK ♦ 


* SYMBOLIC 




* DNIT FOS * 


* UNIT ACER 




* EPROE MESSAGE * 


♦AND tICCS DISK * 






* * 


♦ ADDHESSES ♦ 




i|t**** ************ 


*». 41**4**4******** 



4<***C1***^^^^*^ 

* SVC 4 * 

* LOAD ♦ 

* $$BOSIGN * 
*************4c4> 



4c***j)1*4t4e****«* 

* $$B0SDI1 * 

* HEAD DISK * 

* SOBROOTINE ♦ 
*4***********4<* 



READDISK X 

4c4<*4<4cEl ♦♦♦***♦*♦* 

♦ GET ADDRESS ♦ 

♦ OP CCB ♦ 

♦ FOR ♦ 

♦ SUPERVISOR * 

♦ ♦ 
***«4i4c*4i4i**4i4i4i4(4c!|( 



«*4iF1**4>****4i**** 

♦ SVC ♦ 
READ 
* RECORD * 

****«4i****4<****4t* 



****4iQl*******4(4<4i 

♦ * ♦ * 

♦ ♦ SVC 7 ♦ ♦ 

♦ ♦ WAIT ♦ ♦ 

♦ *IF REQUIRED* ♦ 

♦ * ♦ ♦ 
4i4'4i*4c****4c4c**4<4<** 



♦ E2 ♦ 

* * 
♦**♦ 



***4>i<2^^^***^*^ 

♦ <$B0SDI1 ♦ 

♦ MESSAGE ♦ 

♦ SUEEOUTINE ♦ 

******4i4t******4> 



♦ SET DP * 

♦ TC FETCH ♦ 

♦ «$E0MSG1 ♦ 

♦ * 
***************** 



***4cE2***'i<***** 

♦ SVC 2 * 

♦ FETCH ♦ 

♦ $$B0HSG1 ♦ 
*************** 



♦ C3 *.X 



*♦♦♦ 
READVCL1 X 

*****(; :]********** 

♦ SET DP TC ♦ 

♦ ISSUE * 

♦ MESSAGE ♦ 

♦ 43061 ♦ 

♦ * 
***************** 



*****Q3*4******** 

♦READDISK LF* 
*_♦-*,*-*_*-*_*_* 

* READ VCIDKl ♦ 

* LABEL ♦ 

* * 
***************** 



E3 ♦. 

♦ IS 

LAEEt 

V0L1 

LABEL 



. * DISASTER 
ERROR 
*.OCCDHREE 



****i]2********* 

* SVC 11 * 
.X* RETURN TO * 

* SUPERVISOR * 
*************** 



**** 

* * 

* E2 * 

* * 
**** 



13 *. 

.♦EXTENT *. 

. ♦ AND LABEL *. YES 

.VOL SER NOS. .*.... 

*. ECUAL .* 

♦. .* 

♦ . . * 



*****Q3********** 

* SET DP TC ♦ 

* ISSUE * 

* MESSAGE ♦ 

* II355A * 

* * 
***************** 



*4!***H3********** 

* GET SERIAL * 

* NUMBER CF * 

* PACK TO * 

* MOUNT ♦ 

* * 
***************** 



***** J 3******4*** 

♦HSGPHAS1 LF* 
*_*_*_*_*-♦-*-♦-* 

* TYPE ERROR * 

* MESSAGE * 

* * 
***************** 



VTOCADDR 

*****P4***4e****** 

* INITIALIZE * 

* SEEK ADDRESS ♦ 
...X* WITH ADDRESS ♦ 

* OP THE VTOC * 

* * 
***************** 



*****Q 4** ******** 

* SET UP TO ♦ 

* ISSUE * 

* MESSAGE * 

* aaom * 



*****P5***44***4* 

* ♦ 

* SAVE ♦ 

* VTCC * 

* LIMITS ♦ 

* * 
***************** 



4* ***(;;5 ********** 

* GET SEARCH ♦ 

* PILE KEY ♦ 

* FOR ♦ 

* FORMAT 1 ♦ 

* LAEEL ♦ 
***************** 



*****r)5**4*44*4** 

* MODIFY PHASE ♦ 

* NAME TC ♦ 

* TPTCfi * 

* 1$B0DQDE * 

* * 
***************** 



RESET 

DECUEDE 

INDICATOR 

♦ * 

*4*4*4****« 



****P5***4***** 

* SVC 2 ♦ 
♦FETCH t$E0SEI2 ♦ 

* OB $$BOEQDE * 

***4****44i**** 



******** 



:******** 



*****{] 14* ********* 

♦READDISK LF* 
*_*_*«*>♦_*-*«*-* 

* READ * 

* FORMAT U ♦ 

* LABEL ♦ 
***************** 



****Ki********* 

* RETURN 10 * 

* CALLING * 

* ROUTINE ♦ 
*************** 



* C3 ♦ 

* * 
*♦** 



LABEL 


*. 


NO 


FORMAT U 




*. .. . 


LABEL 






♦. . ♦ 






*. .* 




X 


* YES 




**** 
* 
* E2 


X 




* 


**** 




**** 


* * 






* B5 * 






* * 






**** 
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Chart LH. $$E0SBI3: SD Oper InpiJt, User Labels 



♦♦*♦ 

* A3 ♦ 



* A1 * 

* * 



♦ ♦ 

♦ $$B0SDI3 * 

♦ * 

:t::tf*it^if ********** 



****!^tf^J*^L*****Hi^li:ic 

* * 

* HCVI tAEII * 

* TO ODTPDT ♦ 

* RHEA * 

* * 



.* HEADER 




♦. LABEL 




*. 




*. 


♦ 


*. . * 




* lES 


♦ *** 




♦ # 




* CI ♦.X. 




* * 




**** X 




REENTBY . *. 




CI *. 




.♦ ARE 


* 


.* WE 




*. REENTERING 


*. THIS 




♦.PHASE, 


* 


*. .* 




* NO 


♦*♦* 




♦ ♦ 




* D1 *.X. 




♦ ♦ 




♦*** X 




.*. 




D1 *, 




.* 


* 


.* USER 




*. LABELS 





*:tiitt:tiQ2*** ****** 

«. YES * GO TO ADERESS * 
.* X* IN EEGISTEB 5 * 



iti:IHli,dtt:t:^:-t,:tt* ****** 



***^'\************ 
* SVC ♦ 

HEAD 
* DISK * 

***************** 



*****f ■[********** 

* * * * 

* * SVC 7 * * 

* * WAIT * * 

* +1? REQUIRED* * 

* # * * 
^ ********** ****** 



***Q1************ 

WRITE 
* MESSAGE * 
U3C8D 
IF REQOIRED * 

*************** 



* CCNTIKDE 

PROCESSING 
*. LABELS . 



*****j^H** ******** 

* INIT CPEN * 

* CLOSE AND * 

* RTilTORN PHAST? * 

* NAME * 

* ♦ 
***************** 



**B4******* 
* * 

* TORN ON ♦ 
* EOF SWITCH * 

♦ IF REQUIRED * 

*********** 



RT?SETINE X 

**'^^******* 

* RESET * 

* TRAILER 
♦ LAEEL 

* INDICATOR 

♦ * 
*********** 



*****Q3********** 


ca *. 


* MODIFY CCW * 


.* *. 


* TC WRITE ♦ 


NO .* CLOSE * 


♦ LATA AND * 


...*. TIME 


* GET ADDRESS * 


*. .* 


* CF CCE * 


*. .* 


***************** 


X *. .* 




**** * YES 




* * 




* CI * 




* * 




**** .X.... 


X 


CBCLOST? X 


ic^tt^tD 3 ************ 


♦*D4******* 


* SVC * 


* RESET 


WRITE LAEEL 


* SWITCHES 


* IF REQUIRED * 


* IN DTF 



CLCSECT?! .*. 






C5 ♦. 






.* *. 






.* ENTERED 


*. 


NO 


*. TROM 




*. . . . 


*. CLCSE 


* 




*. .* 






♦ . . * 






* YES 




**** 

* * 

* J2* 

* ♦ 
**** 



*************** 



EOFSWITCH .*. 




X 


E2 *. 


*** 


**-E3********** 


. * *. 


* * 


* * 


.* HEADER *. NO 


* * 


SVC 7 * * 


*. LABELS .* 


* * 


WAIT * * 


*, PROCESSED.* 


* * 


IF REQUIRED* ♦ 


*. .* 


* * 


* * 


♦. . * X 


*** 


************** 


* YES **** 






* * 






* E5 * 






♦ * 






**** 






X 




X 


**f2******* 




^i*Y2******* 


* RESET * 


* 


MODIFY * 


* HEADER * 


* 


CCW TC * 


* LABEL ♦ 


* 


READ DATA * 


* INDICATOR * 


* 


IF REQUIRED * 



*********** 



.* TRACK 
HOLE 
*. SPECIFIED. 



****1K,********* 

* SVC 2 * 

* FETCH * 

* ttBCSEC2 * 
*************** 



*********** 



**G2******* 
* SET IND * 

♦ FOR * 
TRAILER 

* LABELS * 
*I? REQUIRED* 

*****%***** 



NEED *. YES 
TO FILE .*.... 
PROTECT .* 



*********** 



INCRKEY 

*****Q2 ********** 

* INCREASE * 

* KEY FCR * 

* NEXT LAEEL *. 

* IF REQUIRED * 

* * 
***************** 



****Y12********* 

* SVC 2 * 

* FETCH * 

* $$BCFLPT ♦ 
*************** 



***************** 

X 

**** 

* * 

* 32 * 

* * 
**** 



HESSG17 

***j }************ 
WRITE 
* MESSAGE * 

a33or 

* IF REQUIRED * 
***************** 



*****Y^-\********** 

* * * * 

* * SVC 8 * * 

* * PROCESS * * 

* *USER LAEEL * * 



**** 

* * . 

* J2 *.X. 

* * 
**** X 

ADEXIT .*. 

J2 ♦. 
.* *. 
.* ANOTHER 
*. PARAMETER 
*. TC OPEN . 



****K2** ******* 

* SVC 2 * 
*FETCH $$BCSDI1 * 

* OR J'RBCLOSE * 
*************** 



EOFEXIT 

**j2****** 

* RESET 

* OPEN 

. ..X* MONITOR 

* SWITCH 



*********** 



****K3********* 

* SVC 11 * 

* RETURN TO * 

* PBOB PROG * 
*************** 



**** 

* * 

* A3 * 

* * 
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Chart LK, $$E0SDI5: SD Open Input, Pest DTF Elcck 



* * 

* $$B0SDI5 ♦ 

* * 



• *«**E2******4"I'4'* 



♦ UPDATE MP ♦ 

* ET EIB VAIDIS • 



«******«««4>**4>**4r 



3330 OB 
33H0 



*4i«**C 2'*'** <»**)•■*** 

* * 

♦ Sll 3330 ♦ 

* CCMTFOt PIEir ♦ 

♦ IN DTP ♦ 
4> * 



3330 

.* 
*. .* 
♦ NO 



♦ * 

♦ SHT 33U0 * 

♦ 35 RB CONTBOL • 

♦ PIELB ♦ 
« * 
«*«4i«4i«l|i**«4i*4i4i4i« 



♦ *«*«D2**<i>*>i>>t>*4>** 

♦ SET 3310 ♦ 

♦ 70 MB ♦ 

♦ CCNTiOL PIELB ♦ 

♦ * 

X 

STPH .♦. 

J2 *. 
.♦ 

,♦ 
♦. DTFPH 



«*4>**K2**)I<***4»»*4> 



♦ 5ETD5K 10 ♦ 

* CAlllNG ♦ 



*4i4>**«««4>*«*«**4i* 
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Chart LM. $$B0SD01: SD Open Output, Ccntrcl (2 cf 2) 



***** 

♦LL * 

* D5* 



***** 
*LN * 
* HI* 



**** 

* * 

* kH * 

* * 
**** 



.*. FIXED 

A1 ♦. *****j^2********** 

,* *, * GET * 

.* FIXED *. TES * DISPLACEMENT * 

♦LENGTH RECOEDS.* X* FOB END OF * 

♦. DTF .* * EXTENT * 

*. .* * ADDPESS * 

♦. .* ♦♦*♦♦♦***♦♦#♦*♦♦* 

♦ NO 



UNDEF X 

***^i^^^lf4******** 

* GET ♦ 

* DISFLACEMENT * 

* FOP END OF * 
♦EXTENT ADDRESS ♦ 

* * 



4>4>)K4i4iC1 ♦♦♦♦♦♦♦♦♦♦ 

♦ GET * 

♦ DISPLACEMENT * 

♦ FOB END OF ♦ 

♦ EXTENT ADDS * 

♦ ♦ 
4i4»t<4>****4>4»|t*«*4t4i4i 



BOX A DDE 

*****l^^***i(^*****H^ 

* GET * 

* ADDRESS OF * 

♦ LOGICAL ♦ 
♦TRANSIENT SAVE ♦ 

♦ AREA FROM PIB ♦ 
41 4< )|< 4> * * * 4' 4> * >•> * * * * * )|< 



41 4i4<**El ♦♦♦♦♦♦♦♦♦♦ 

♦ EOT END OF ♦ 

♦ EXTENT ADDR ♦ 

♦ IN PSH IN ♦ 

♦ LOG TRANS. ♦ 

♦ SAVE AREA ♦ 

4i4i4<*«4>4*^4!*4i4i4i4i4i4t 



41 4( 4c 4tFl4>*)i' ■»**«** 

♦ SVC 11 ♦ 

♦ RETURN TO ♦ 
♦PROBLEM PRCGBAM^ 

*4>*4i***4'4>i|'«***4i 



4< 4c 4<4'4<G1^^^^ ♦♦♦♦♦♦ 

♦ INITIALIZE ♦ 

♦ EXTENT HITH ♦ 

♦ SYMBOLIC ♦ 

♦ DNIT ♦ 

♦ ♦ 
44> 4c «4c 4c 4c*** **♦«««« 



♦ SET DP ♦ 

♦ TO LOAD ♦ 

♦ $$BOSIGN * 

♦ * 

♦ 4> 4c 4c 4c 4c 4c * 4c 4- ** 4c 4c 4c 4c * 



4 4< 4c 4c 4c J 1 4c 4c 4c 4c 41 4> 4c 4> 4c 4c 

♦ 4c 4c 4c 

♦ ♦ SVC U ♦ ♦ 

♦ ♦ LOAD ♦ ♦ 

♦ ♦ $$BOSIGN ♦ ♦ 

♦ * * * 
4c4c4c4i4c4c4c4e4c4c4c4c4<4c4c4c4< 



4>*4>*K1*4<4c4c4c4c4c4c4c 

♦ BRANCH TO ♦ 

♦ $$BOSIGN ♦ 

♦ 4c 
* 4c 4c 4c 4e 4c * 4c 4< 4c 4c 4c 4c * 4c 



*4c4c4c4iE2^^***^^^^* 

♦ UPDATE * 

♦ DISPLACEMENT * 
.♦ BY 24 4. 

♦ IF REQUIRED * 

♦ ♦ 
4c4i4c4c4c4 44i**4*4c4c4>4>4i 



FILEPROT X 

4c4i]^34<*4c4<4c4>4c 

♦ RESET ♦ 

♦ INDICATCF 
♦ IN DTF TO 

♦ dequeue old 

♦ Extents ♦ 

*44i4i444c4>4c4c4c 



*4'Q344**4 4* 

♦ SET PHASE ♦ 
INDICATOR 

TO DECUEUE 
EXTENTS 

♦ * 
*********** 





DSERLELS .♦. 


EFERENCES 


C3 * 


"C LMD2: 


.♦ 


.lAt, LLK5 


.:• i?in 





***4c*A 4** ******** 

♦ MODIFY ♦ 

♦ PHASE KAME ♦ 

♦ TO FETCH ♦ 

♦ UBosDoe 

♦ IF 

4c***** 



**** 

♦LL ♦ 

♦ E1 ♦.X 



**** 
RESETIND 

**2H******* 

♦SET 'LABEL ♦ 

♦ CREATED* ♦ 

♦ INDICATOR 

» OFF ♦ 

* * 

4c********** 



4c*Cl)******* 

♦ SET NEW ♦ 
VOLUME 

INDICATOR 
OFF 

* * 
*********** 



NENVCLUM .♦. 



**** 

* * 

♦ E5 ♦ 



NC .♦ END 
. ..♦. OF VOLUME 
♦, FORClt . 



NEXT 

EXTENT ON 

.NEH VOL. . 



♦ SAVE ADDR 

♦ CF CHEATED 

♦ LABEL 
* 
**************** 



YES .♦ SYMBOLIC 
...... UNIT IN 

♦ . DTF 



♦ *♦♦ 

* * 

* E5 ♦ 

* * 
**** 



**D344***** 
♦SET BYPASS ♦ 

♦ EXTENT 
INDICATOR 

♦ CN 

* * 

*********** 



*****]E 3* ********* 

♦ SET UP TO ♦ 

♦ ISSUE ♦ 

♦ MESSAGE ♦ 

♦ 4466A ♦ 

♦ * 
***************** 



♦ INITIALIZE ♦ 

♦ TO FETCH ♦ 

♦ 1!$B0DCUE ♦ 

♦ ♦ 
***************** 



YES .♦ EXTENT 
...... NEEDED AT 

♦. CICSI . 



**jiS******* 

* * 
SET 

BYPASS 
SWITCH 

* » 
*********** 



***** 

♦LL ♦ 

♦ A3^ 

* * 



LOADMSG X 

*****Q2********** 

♦ SET OP * 

♦ TO ISSUE ♦ 

♦ MESSAGE ♦ 

♦ 44831 ♦ 

♦ * 
***************** 

**** 



**** 
NSGPHAS1 X 

*****H2*^ ♦*♦♦♦♦♦* 

♦ * 

♦ GET LOGICAL * 

♦ UNIT IN ♦ 

♦ CCB ♦ 

♦ * 
***************** 



*****j2********* 

♦ INITIALIZE 

♦ TC FETCH 

♦ MESSAGE 

♦ FCUTINE 
* 
*************** 



****l(2^^^ ♦♦♦♦♦♦ 

* SVC 2 ♦ 

* ESTCH * 

* $$B0MSG1 * 
*************** 



*************** 



****fti********* 

♦ <!^5B0SD01 ♦ 

♦ READ DISK ♦ 

♦ SUBROUTINE ♦ 
*************** 



REFERENCES 
TO LHH2: 
LLE3, LNE2 
LNH1 



SVC 

READ 



***************** 



*****^4********** 

♦ * * * 

♦ ♦ SVC 7 ♦ ♦ 

♦ ♦ WAIT ♦ ♦ 

♦ ♦IF ^EQUIRED^ ♦ 

♦ * * * 
***************** 



DISASTER 
ERROR 
.OCCURRED 



****K4** ******* 

♦ SVC 11 

♦ RETURN TC 

♦ SUPERVISOR 
*************** 



**J«5******* 

♦ SET ♦ 

♦ CCNEITICN 
.X^ CODE FOR 

♦ RECORt 

♦ 'CONE ♦ 
*********** 



****i;5********* 

♦ RETURN TO ♦ 

♦ CALLING * 

♦ BCUTINE ♦ 
*************** 
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Chart LO. $$B0SD02: SD Open Output, Voluire Label 



♦ 4> 

♦ $$B0SD02 ♦ 

♦ ♦ 



♦ ♦ 






♦*♦♦ 
* * 


: «^ : 






:": 


**** 






♦♦*♦ 


.1. 

A2 ♦. 




•♦•A3************ 


^""«r.„.i,.... 


.♦BECOBD *. 
♦ PCOND AND *. 
UITH STANDARD. 


NC 


...K MESSAGE 


.* I?J! 


••.!?S°bI!..-* 




* UU06I * 


♦^ LIMITS 



4i4i4e4i«4t*4<*4t4>*4>4t*4>4i 



.♦ PBOM ♦. HO 

*. MESSAGE .*... 

♦ . HOOTIIIE .♦ 



«4<t)1 ******* 

* 4< 

* RESET ♦ 
MESSAGE 

* RETORS ♦ 

* INDICATOR * 



♦REIORN TO JOINT* 

* INTERHOPTED ♦ 

* FOR MESSAGE ♦ 



*4>«*««««*4444«4i4i« 



* SVC 5C * 

* CANCEL * 
4> * 



J. 

. *. 

C2 *, ♦♦♦**c3#*ni#**##«« 

.* *, * INIT DLAE * 

.* VOL *. YES * AND EXTENT * 

♦.SERIAL NDHEER.* X* NITH VOL * 

*. IBBSEMT .♦ ♦ SERIAL ♦ 

♦. .♦ ♦ NDHEIP ♦ 

* NO 

Tx '. 

NRONGPAK .*. 

D2 ♦. ♦♦♦D3#»»j(r**###**# 

.♦ ♦. 
.♦ CORRECT *. NO ♦ NUITl * 

*. DISK PACK .* X MESSAGE 

*. HCDNTED .* * UUSSA ♦ 

♦ . .♦ 

* YES 



VTOCADDR X 

««*)|l*£2*^ ♦♦♦♦*♦** 
*INIT. COONT AND* 

* SEEK ADDB * 
*BOCKETS AND CCN* 

* CHAIN TO READ * 

* FORMAT 4 LBL * 



«*4i4i«f 2********** 
*READEISK LZ* 

* . 4>. « . *. *- 4>. «. *_ 4i 

* BEAD * 

* FORMAT 4 ♦ 

* LABEL * 



* B1 * 



«««4i*4>«** 



DOBS 

EXTENT 

. OVERLAP . 

*.VTOC .♦ 



4>*C1(******* 

* * 
TTJBN ON 
BYPASS 
EXTENT 

* INDICATOR ♦ 



♦ NRITE * 

MESSAGE 

♦ auuiA ♦ 



* SVC 2 * 

* FETCH * 

* $tBOSDOl * 



* SVC 2 ♦ 

* FETCH *X. 

* SSBOSOOt * 



CALCQLATI 

RETENTION 

DATE 



X 


.♦. 








CLEA»»LBL .♦. 


t****G^ **a|>**4>4>*** 


G2 ♦. 


*4>4iG3****4>*4>*4<4<4i4i 




G5 *. 


* * 


.♦RECORD *. 




««**GI| **«*«**«« 


.* *. 


♦ INITIALIZE ♦ 


.* FCOND AND *. NO 


♦ NRITE * 


♦ SVC 2 ♦ 


NO .♦ LABEL ♦. 


♦ CCE AND CTP * 


*. IT IS A .*... 


••••% "siejp . 


♦ FETCH ♦X... 


♦. CLEARING 


* FOR DISK * 


*. FORMAT U .♦ 


%..«SSI52J.,..* 


♦.BEQTJIREB .♦ 


* BEAD/NRITE ♦ 


♦.LABEL.* 




• . .* 


♦ . .♦ 


4i*4i««4**# 


|««4«*«* 




♦. .♦ 




* YES 








♦ YES 


*♦♦♦ 












♦ ♦ 












♦ HI ♦.X. 












♦ * 












♦ ♦♦♦ 












RBADV0L1 X 












«***«HU^******** 


H2* **. 


X 




X 


♦READDISK LZ* 


.* *. 


*«**n3««««4<«**4i 




4i**4f]5«** *«««*« 


*.«_*.*-4.-«.*.4t.4< 


.♦ IT IS AN ♦. NO 


♦ SVC 50 ♦ 




♦ SVC 2 


* READ * 


♦. OS/VS .♦... 
♦. PACK .♦ 


* CANCEL ♦ 




♦ FETCB 


* VOLUME ♦ 


* ♦ 




*«.n5SI5?§«.. 


♦ LABEL * 


♦ . .♦ 


4<«*4>*4>«***4>**** 




4**44>«**4*«:|«**:|i* 


♦. .♦ 
♦ YES 








J.. 










* * 










* A2 ♦ 


X 








* * 


4>*J2^****^« 








**«* 


* * 
♦ TORN CN ♦ 

♦ LABEL ♦ 










**4«*«**«4<4i 











*4<««*K2^**^*****^ 
♦HRITDISK LZ* 

♦ HRITE BACK ♦ 

♦ FCEMAT 4 ♦ 

♦ LABEL * 
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♦♦**♦ 

♦LP * 
♦ J5* 



* CPEiTE R ♦ 

* 1 CYLINDEB * 

* EXTENT * 

* ♦ 
4i ]|< 4c * * ite * 4i * * * * * 3|i * « 4c 



♦ 4c 

* Ba * 

4c 4t 

4c4c*4c 



.♦ EXTENT DL *. NO 






♦. LESS THAN .♦ 






♦ .BUCKET LL.+ 






♦. .♦ 






♦ . .♦ 






* TIS 


*♦♦♦ 
*LP * 

♦ an *.j. 

* * 




X 


♦ 4«4c4> 




CYLEQDAL .♦. FILEOVLP X 


CI ♦. 


4c4c4<4c4cC2^^^^^^^^^^ 


.♦ IS ♦. 


♦HEADEISK LZ* 


.♦ BDCKET DL ♦. lES 




♦. EQUAL TO .♦ 

♦.EXTENT 0L.+ 


♦ BEAD ♦ 


♦ FCBMAT 1 * 


♦. . ♦ 


♦ LABEL ♦ 


♦ . .♦ X 


4c4c4c4c4c*4'**4c***4c4c4c4c 


♦ NO ****4c 




♦LP ♦ 






♦ G3^ 






4c ♦ 
* 






INCEEHEN 


X 




.*. 


4c4c4''(c4cDl4:4'*4c4c4c4c4<4<4c 


E2 ♦. 


* INCHEMENT ♦ 


.♦ ♦. 


♦ LL AND ♦ 


.♦ flAS ♦, 


.. .♦ IF REQDIPED + 
♦ CI AND C2 ♦ 


♦. lECOBE .♦ 


♦. FOl 


]ND .♦ 



.♦ DELETE ♦ 


. NO 


♦. ON EXP 


...... 


♦. FILE .♦ 




♦. . ♦ 




♦. .♦ 


X 


♦ YES 


♦ 4c 4c 4c 4c 


4<*** 


♦LP ♦ 


* 4c , 


♦ A3^ 


♦ ca ♦.x. 


* * 


♦ * . 


4c 


4c*4c4c 


NEXTPmS 


DELETION X 




4c 4c 4c 4c 4cC4 ♦♦*♦♦♦♦#* * 


♦ GET ADDRESS 


* 


♦ OF FOSHAT 1 


4< 


♦ LABEL TO 


♦ 


♦ DELETE 


♦ 



4< 4c * 4< 4< 4c 4c 4c 41 4c 4c 4> 4< ♦ 4c 4c 4c 



4c 4<4cB3^ ♦♦♦♦♦♦♦♦♦♦♦ 

HEITE 
♦ MESSAGE ♦ 

.X U209I- HHOSl, 
♦ Oli 1|9C9I ♦ 

4c4c4i4c 4c*4< * « « 4 44c*4c4c4c 



4c 4c 4c 4c 4< 4c 4c 4< 4c 4c 4c 4c 4c 4c 4c 



NEXTREAE 

4c 4c 4c 4<*D4^^ ♦♦♦♦♦♦♦♦ 
♦BEADDISK tZ* 

4t_4c-*-4c-*-.4c-4c-4c-* 

♦ READ LABEL ♦ 

♦ TO BE DELETED ♦ 

♦ ♦ 
4c 4c * ♦ * 4c 4> * 4c ♦ 4c 4c 4c 4i 4c 4c 4> 



4<*4cB1 ♦♦♦>»»'*♦♦**** 


E2 ♦. 




X 








EH ♦. 




WRITE 


.♦ ♦. 




♦♦♦*E3+*++^+^++ 






.♦ ♦. 


WRITE 


MESSAGE ♦ 


NO .♦ ISAM ♦. 




♦ SVC 50 


4c 






.♦ HAS ♦. NO 


♦ MESSAGE ♦ 


tmUOA OR X... 


4c. FILE . ♦ 




♦ CANCEL 
4c 


4c 

♦ 






♦. RECORD .♦ 

♦. FOUND .♦ 


...X 'm09T OF 


U9aOA ♦ 


♦. TYPE .♦ 


♦ a909I ♦ 




♦. . ♦ 










♦. . ♦ 




4c4c4c«««*'|c4c4c4<«4c4c 


♦. .♦ 












*. .♦ 


4c 4c 4< 4c 4c 4c 4c 4c 4c 4c 4c ♦4c)|c* 4c 4c 




♦ YES 












♦ YES 






X 

4c*4c4c 


X 












xl 






4c 4c 






* BH * 


.♦. 


















* * 


F2 ♦. 












4<4c4c4c4c744c4<«4c4c4c4c4c4c4c 


X 


**** 


. ♦ ♦. 












♦HRTTDISK L2* 


4c**4'F5^^^*^^^^^ 




.♦ ISAM ♦. NO 










4c_4c- 4C-.4C- 4c _4c- 4>-4c- 4c 


♦ SVC 50 ♦ 




♦. LOAD .♦ 












♦ DELETE ♦ 


♦ CANCEL ♦ 




♦ . .♦ 












♦ LABEL ♦ 


4c 4c 




♦ . .♦ 












4c 4c 






♦ . . ♦ 


X 










4c4c4c4c4c4c4c4c**4c4c4c*4c4c4< 






♦ YES 


**4c4c* 
♦LP ♦ 

4c 
















X MOVERCM 
















EXPIRED .♦. 












.♦. 






G2 ♦. 




4c4c4c4c4cG3 ♦♦♦♦♦♦♦♦♦♦ 






Ga ♦. 






.♦ ♦, 




* 








.♦ IS ♦, 






.♦ IS ♦. YES 


♦ ICAE 








YES .♦ POINTER ♦. 






♦. EXPIRATION .♦ 
♦. DATE DP .♦ 




.X+ MESSAGE 
♦ at»98I 








...♦. TO NEXT .♦ 
♦. LABEL .♦ 












♦ . .♦ 




4c 








♦. .♦ 






♦. . ♦ 




4c4c4c4c4c4c4c4>4'4'**4c4c*4c* 






♦ . .♦ 






♦ NO 




X 








♦ NO 
X 

4c*4c4c* 
♦LP ♦ 










.♦. 








♦ D1^ 






4c4c4c4c4cB2^^^^^^^^^^ 




H3 ♦. 








* ♦ 






* 4 




.♦ ♦ 








4c 






♦ LOAD ♦ 




.♦ EATA 


♦ . NO 




M07EBCM 






♦ MESSAGE ♦ 

♦ U498I ♦ 




♦. SECURED 


.♦. 














♦. FILE 


* 












♦ 4c 




♦. .♦ 














4> 4c4c*4c 4 4<** * «*♦*♦♦ * 




♦ . .♦ 
♦ YES 




* 

4c 
4c 


X 

tc4c4c:| 


4c 

4c 
4c 






X 

.♦. 




-J* 






***i 


|c 






!msg«rite X 




4c4<4cJt4c4'4c4>4c4c4c4c4c4<4c4c 


J2 ♦. 




♦♦♦♦♦a3*++++^++^+ 










WRITE 


.♦ ♦. 
















MESSAGE ♦ 


NO .♦ DATA ♦. YES . 


♦ SET DP 












4U44A OR X. . . 


♦. SECURED .♦ 




♦ TC FETCH 

♦ $$BCDSH« 












494UA ♦ 


*. FILE .♦ 







4e 4c 4c4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 4c 3tc 4c 4c 



♦ EU ♦ 

4c 4c 

4c 4c 4c 4c 



4c 4c 4c 4c 4c 4c 4c 4c 4> « 4c 4c 4c 4c 4c 4c 4c 



4c4c4c4cK3^44^^^^^^ 

♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $$BCDSMH ♦ 

4<:»4<44'**4«443»4c4<4< 
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Chart LS. $$B0SD05t SD Open C\3tput, Fcrirat 3 Lafcel (1 cf 2) 



:«2: 



♦ 115 ♦ 

* « 
♦ »♦♦ 



* 4> 

♦ $$B0SD05 * 

« <l> 



"""S.,2.5 

♦ SET 

* LAST EWIMT 

* mClCMOB 

* 4> 



*4i**4i«4i«««4i«4i**«i 



*«**«C1 ********** 

♦READDISK L2* 

♦ BIAE FOBHAT 1 ♦ 

* LABEL ♦ 



.♦ «AS 

BBCORD 
♦. POOHD 



F1 ♦. 

♦ IS 
LABEL 

IB 
ITTOC 



♦ WHITE ♦ 

.X HESSAGE 

♦ 114011 ♦ 



* STC 50 ♦ 

* CASCEL * 

* * 



4i*«f 2************ 

♦ IRITB ♦ 
.X HESSAGE 
♦ IH»3U1 ♦ 



♦ ADD 1 TO THE * 

♦ NOHBER OP * 

♦ EXTENTS ♦ 

♦ ON THE * 

♦ VOLOHE * 



J.. 



*««4iG2*>^******* 

♦ S1»C 50 ♦ 

♦ CAHCEL ♦ 

♦ * 



.$. 



Y 


SPOT .*. 








83 ♦, 








.* IS •. 








.* THESE A« 


*. 


TES 


* 


. ERfTT SPOT 




♦ .... 




*.A1I EXTENT. 


* 






♦ , .♦ 








♦ . .♦ 




X 




♦ NO 




•LT * 
* A1* 



* INCREMENT TO ♦ 

* NEXT EXTENT ♦ 

* LOCATION ♦ 

« * 



5TH 
EXTENT 



♦ INCREMENT TO ♦ 

♦ NEXT EXTENT ♦ 

♦ LOCATION ♦ 



•«*«*«•« 



..^i; 



4>««««««* 



* POINTER 

PRESENT TC 
*. NEXT 
♦.LABEL** 

***N0 



* 

* RESET LAST 

* EXTENT 

* INDICATOR 

* 



4i«***£||«*4i4i**4i«*« 

* * 

♦ GET POINTED ♦ 



i|ii|ii|ii|i * Hi « « * * * « « itnH * « 



♦RBADDISR L%* 

* READ POENAT 3 * 

♦ LABEL ♦ 



X 
.*. 
64 *. 
. ♦ ♦ 
.* WAS 
♦. RECORD 
*. fOOND 
♦ . .♦ 
*. «* 
♦ NO 



* AS ♦ 

* * 



ETNDSPCT „ i 



SAVE ADDRESS * 

Of THIS • 

LABEL * 

* 



♦SEARCH tZ* 

♦ fINt SICT ♦ 

♦ lOR LABEL ♦ 



*****C5^^^ ♦♦♦♦♦♦♦ 

♦ INSERT ADDR ♦ 

CE NBN LAEEL 



^m 



*******^**«**t|i*«* 



♦NRITDISK 12^ 

♦ NRITE ♦ 

♦ OPDATft ♦ 

♦ LABEL ♦ 



♦ INITIALIIE ♦ 

♦ SEfK EtJCKET ♦ 

♦ NITH ADDRESS ♦ 

♦ OP NEW ♦ 

♦ LABEL ♦ 



5 



BtJILt 
fORHAT _ 
LABEL 



*l»««4i*****«****i 



***f{l|******«***** 



NRITE 



4>«««4(4i**4i*«4t«4i«** 



♦ GIT ADIFESS ♦ 

♦ OT 1ST XTENT ♦ 

♦ ON ?3 LABEL ♦ 

41 * 



.♦ IS IT 
. A EOBRAT 1 
♦. LABEL . 



«««4>*V3#««4«««**4> 

:!SU5i!5-.-.-S?: 

♦ NBITE DELATED ♦ 

♦ FORMAT 1 ♦ 
♦^ LABEL ♦ 



.X.. 

♦ * 



*4i4i4ia4^^*^^^^^^ 

• SVC 50 ♦ 

♦ CANCEL ♦ 
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Chart LU. $$BCSD06: SD Open Output, User Labels (1 of 2) 



♦♦*♦ 
* * 

♦ A3 * 



♦ * 

♦ $$BOSD06 * 

♦ ♦ 



♦RELOCRTE CCW'S ♦ 



*:4<j|c***4c4i4<4>4< ****>!<* 



THIS A 
RE-ENTBl 
.IMTO THIS. 
*. PHASE.* 



* * 

BESET 
RE-ENTEI 
INDICATOR 

* * 



* GO TO ABIR * 

* IN REGISTER 5 * 



♦INIl OTLO KII, * 

* EXIT PHASE ♦ 

* lOV INDICATOR * 

* * 



♦ it< 4> «:» B 3 * 'I'* *■!■** *■)"(■ 

♦ RESET VOLUME ♦ 

♦ AND HIAEPB * 

♦ INDICATORS. ♦ 

♦ INITIALIZE * 
♦FETCH $$ECSEC2 ♦ 



C3 *. 
♦ NEED * 
TRAILER 
LBLS AT 
CLCSING 



FILEADD2 X 






^tif***kH********** 






* SET OP COONT * 






* KEY AND DATA * 






* FIELDS ♦ 






♦ INITIALIZE * 






♦ CHAIN * 




**** 


4c**4<*]|i4>4>4<>»4i«i»*«*>» 




* * 

* B5 * 

* * 

jI 


X 


rLCAJT 


jsFi; X 


^c^Bit******* 


4 4*T)<5******4>)»*4> 


♦RESET IRLR * 




IBITIALI21 * 


♦LBL CLOSE IN-* 




RfGTSTlBS FOB » 


* DICATOR. TORN *... 




tJSEK LABEL * 


* OFF HEADER * 




BCOTINI * 



n>*****i^**** 



*4<12******* 

* * 
SET MAX 

CCDNT CF 
LABELS TO 

♦ 5 * 



.♦ 



CLOSEHON 

:)>*4i*4>D3 ********** 

* SET TRAILER * 

* AND EOF INES. * 

* INIT TO FETCH ♦ 

* ISBCLOSE * 

* ♦ 



****«4i«**4>4*«««*)|i 



«**4)»c5********** 

♦ * SVC 8 * * 

♦ * EXIT TO ♦ ♦ 

♦ *DSEH LAEIL ♦ ♦ 
ROUTINE * ^ 



* « 



* * 



*«4c4i«p2* ********* 

* INITIALIZE * 

* CCE, SEEK * 

* EUCKET. URITE * 

* COUNT FIELD * 

* * 



.* NEED 
HEADER 
*. LABELS 



* RESET VTCC * 

* LABEL IND. ♦ 

* SET IND FOE * 

* NO USER LEL'S * 

:•> iti * :|> V 3|c ]|i :»««:» :|i * :)t »( 4t ])c 



4i3(c:(i4c4tF3 ********** 

♦WRITDISK LZ* 
♦_♦-»_♦_♦_♦_♦_»_♦ 

* LOOK FOR * 

* UTLC * 

* FIIEPABK * 
4i4e«««* *********** 



4>*#4)»*««4«444«*4i|> 



* RlSTCFl 

* EBGISTEBS 

* NEEDED BY 

* OPEN 

* 



E5 *. 

.* DCES *. 

USER 

NEED BOBE 

. LABELS . 

*. .* 

*. .♦ 



NRITELBL X 

*4t**4<FI(** ******** 
*«RITDISK LZ* 
«_♦-♦-♦-*-*-*-♦-* 

* WRITE USER * 

♦ LABEL * 



* * 

* A3 * 

* * 



IS IT 
DTFSD 
FILE 



4t«J2****i(>*3|> 

♦ * 
♦SET INDICATOR* 

* TO PROCESS ♦ 
TRAILER LABELS* 

* * 



03 *. 




**G4******* 


♦ ♦, 




* 


iAS *. YES 




* INCREMENT 


FILIMARK .*.... 




* ADDR FOR 


POUND .* 




* NEXT RECORD 


*. .* 




♦ 


*. .* , X 




4i:|i:4ii|i)|c***«4<* 


» NO ***♦ 




* 


* 




* A4 


* 




* 


* 




**** 








X 


X 


LABELSW .*. 


*H3************ 




H4 *. 
. * *. 


WRITE * 




.* SN FOR 


MESSAGE 




*. NO MORE 


*mC8D * 




*. LABELS . 



* SET * 
LABEL S« 

FCR NO BOBE 
LABELS 

* ♦ 



*WRITDISK IT* 

* WRITE * 

* LAST * 

* LABEL * 



*^I^2******* 

* RESET * 
PROCESS HEADER* 

* LBL IND. INIT * 
* WRITE CCW ♦ 

* CHAIN * 



* B5 ♦ 

♦ ♦ 
*♦** 



**4e****4t**4<K3|t*«:K« 



J3 ♦. 

.* ARE *. 

TRAILER ♦. NO 

LABELS AT .*... 
. CLOSE .* 

*. .* 



**K3******* 

*RESET TRLR ♦ 

♦LBL CICSE IND* 

* INITIALIZE * 

* TO FETCH * 

♦ $$BCLCSE * 



DCEXTNT.X.. 

***** 
*LV * 
* E2* 

* * 



WERE 

8 LABELS 

. WRITTEN 



*«K4*****^^ 

♦ SET * 
LABEL SW 

FOR NO MORE 
LABELS 

* * 



♦ *♦♦ 

♦ B^ ♦ 

* * 



FILEMARK.X.. 

X 

***** 

♦LV * 

♦ A1* 
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♦ AU * 



♦ ♦ 

♦ $$B0SD07 * 



4*****Hi********** 



* INITIALIZE ♦ 

* CCW AND * 

* INSTBDCTIONS ♦ 

* FOB MESSAGE ♦ 

* U450A * 



* D1 *.X, 



*♦♦♦ 
TYPEMSG1 X 

♦SDMROOT LZ* 

♦ -♦-.♦_*_*_♦-♦_♦_♦ 

* TIPE MESSAGE ♦ 

♦ AND RIAE ♦ 

* RESPONSE * 



El *. 
.* ♦ 

RESPONSE 



. ♦ VTOC *. 
DISPLAY 

*. RIQOESn .* 



CANCEL 
REQOESTEI 



4t 4. 4>*J2*** ****'(■* 

* SVC 50 * 

* CANCEL * 

* 4> 



* SVC 2 * 
.X* $$EODSPV * 

* OR $$BOVDHP ♦ 



♦ * ♦ ♦ 

♦ ♦ SVC ♦ * 

♦ ♦ LOAD ♦ ♦X 

♦ * $$BCS2321 ♦ * 

♦ ♦ ♦ ♦ 



♦ BRANCH ♦ 

♦ TC * 

♦ $$BOS2:-21 * 



.* VALID 
EXTENT 
*. PROVIDED 



HIGH *. 
LIMITS 
.EXCEEDED .♦ 



* * 4> « 4>C 14 f * 4>* * * 4> * * 

* CONVERT 

* EXTENT TO 

* BINARY AND 

* STOEE 
* 



X 
.*. 

Da *. 

* 

DEVICE 

23I1 

*. 
*. 



TY^^RRCB 

* MOVE ♦ 

* E^ECR MESSAGE ♦ 
...X* 4H77A ♦ 

* TC TYPECOT ♦ 

* AREA * 



* Dl * 

♦ ♦ 

*♦*♦ 



♦ML * 

* B1 *.X. 



* NO 



♦ ♦** 
ADDSEQNO 



.* MAX ♦. 
* NOMBERS *. NO 

Oi EXTENTS .*... 
*. REACHED .* 



. * VTOC *. 
.X*. DISPLAY 

*. REQUESTED. ♦ 



« * 

* INITIALIZE ♦ 
X* FOR ♦ 

♦ $$EOVDMP * 

# * 



♦ SET. DP ♦ 

♦ TO ISSOE * 

* MESSAGE * 

* «»Ua5I * 
« * 



* SVG 2 * 

* FETCH * 

* tSBOMSGl * 

4c 4"t'*4>*>l>* ******* 



4c4>i(t««'g54>***)t>*4<*** 

* ASSIGN NEXT * 

* EXTENT NDHEEE ♦ 
.X* AND TORN ON ♦ 

♦CONSOLE EXTENT ♦ 

* INDICATC? * 



* SVC 2 ♦ 

* FETCH ♦ 

* 11E0SDC2 ♦ 



DEVICE 

A 

2311 



««J1««*4i»«* 

* MODIFY * 

DASD 

ADDRESS 

CONSTANTS 

* * 



* SVC 5C * 

* CANCEL ♦ 

* * 



* LOAD * 

* WORK * 

* REGISTERS * 



* A4 ♦ 

♦ ♦ 
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Chart LY. $$BCSD09: SD Open Output, Extent tc DTF 



♦*♦♦ 
♦ * 

* A2 * 

* ♦ 

♦ *♦* 



♦♦♦*A1********* 

* ♦ 

* $«BOSD09 ♦ 

* ♦ 



* * 

* POST EXTENT ♦ 

* LIMITS AKD ♦ 

* SET HEAE ♦ 

* LIMIT TO * 



VEBSIOM 

1 

TABLE 



HOVE COHTBOL * 

FACTOB TO * 

DTE ♦ 



IS IT 

A TYPE 1 
. EXTENT 



* * 

* MOVE HEAD * 

* LIMITS IN * 

* DTF * 

* * 

:)( «4c # 4t * 9i< * * * It: « 3(c « :(= ♦ 4i 



MOVLCLIM X 

4<«:t<*:icH1 4*** ****** 

* INITIALIZE * 

* RECORD NO * 

* AND LOWEB * 

* LIMIT FOR ♦ 

* LIOCS * 
44*************** 



. *. 
E2 *. 

*. 
SYSLNF ♦. YES 
OPENED .♦ 


VERIFYCP 

* INITIALIZE * 

* CCW CHAIN * 
...X* FOB FINDING * 


ALREAtY^.* 
**. .** 


* EOBWAl 1 ♦ 



]ti4<4<**c2*** ******* 

* INITIALIZE * 

* aOE CCNTBCL * 

* DISK ADDRESS * 

* SAVE ABBA ♦ 

* * 
*4i4>** ************ 



*****C3*4******** 
*BEADDISF L2* 
♦_♦_*-.*_*-*_♦_*«* 

* FIND FCEHAT 1 * 

* LABEL FCB * 

* ETICP FILE * 

********4******** 



D2 *. 

.♦ HAS *. 
* EXTENT *. 

ENTEBED BY .^ 
*. CONSOLE .♦ 



***** £2**** ****** 

* SAVE ♦ 
♦EXTENT SECOENCE* 

♦ HOHBEB * 

♦ IN DTF * 

* * 
*****4*** ******** 



**f 2******* 
* AS * 

* REQOIBED 
SET VABICDS 

* OPEN 
*INCICATORS ♦ 

*********** 



***DI»** ********** 

* WT?ITE * 
.X MESSAGE 

* U401I * 

***************** 



****£4*t******* 

* SVC 50 * 

* CANCEL ♦ 

* * 
*************** 



****H2********* 

* SVC 2 * 

* FETCH * 

* S$B0SD06 * 
*************** 



*****P3 ********** 

* MOVE * 

* LC«EF LIMIT * 
.* TO DTF FBOM * 

♦CCMMONICATIONS * 

* BEGICN * 

******** **3|t***:|e** 



.* FILE *. 
.X*. PROTECT 

♦ .SPECIFIEC* 



.* SYSTEM 
. ONIT EEING 
*. CEINED . 



LCADEXIT .*. 



MORE 
FILES TC 
. OPEN 



*♦** 

* * 

* A2 * 



*****j2********** 

* * 

♦ SET 01 * 
♦RETURN ADDRESS *X. 

* TO $$B0SDC1 * 

♦ ♦ 

*******4***4**4:** 



****I^2********* 
SVC 2 * 
FETCH * 
$$E0FLFT * 

4**********4c*4:3|[ 



*****!( 344******** 

* SET DP * 

* BETDEN * 
. * ADDRESS ♦ 

* TC $$ECPEN * 

* * 
**4* 4*44* ******** 



* SET OP * 

* TO I'ETCH * 

* «$B0SEC1 ♦ 

* * 
**4*4**4* 4* ****** 



****KU** ******* 

* SVC 2 * 

* TPETCH * 

* «$B0SEC1 ♦ 
*************** 



****j5****«**** 

* SVC 11 ♦ 

* BETOBN TO ♦ 

* EROBL"eM PB. ♦ 
4*44*********** 
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Chart MA. $$B0SDW1: SD Open Wcrk File, Vcluire Latel (1 cf 2) 



* A3 * 

♦ ♦ 



**♦♦ 

* * 

* AU * 

* * 
♦ ♦♦♦ 



* $$B0SD«1 * 

4> * 



ENTRl 
T¥On nSG 
. BOOTIHE 



ANY 

EXTEFTS 
OFINED 



X 

♦ HB * 

♦ G1* 



4c4<**«*«]|i*«4> 



♦ GC 10 FCINT ♦ 
.X* miEBBDPTED * 

* FOl HESSAGE * 



* ♦ 

* LOAD ♦ 

* DLBL * 

* ADDBESS * 

* * 



♦HB ♦ 
* J2 



BYPASS 

THIS 
EXTEHT 



VALID 
STHBOLIC 
. OHIT 



IS IT 
THE LAST 
. EXTENT 



* A3 ♦ 



* DU ♦ 

* * 
***♦ 



* * 

♦ D2 * 



***«*]) 2****41 4>*4i4<* 
*HSGPHAS1 HE* 
*-«-*-«-*-4>.4<-*~* 
.* TYPE EBFOB * 

* HESSAGE * 

* * 



♦ SET SYHECLIC * 

♦ OHIT IS DTE * 

♦ IF BEQDIBED * 

3|i4t****«4ei|i3|i«*i|i*4>** 



* SET SYHECLIC * 

* UHIT IS * 

♦ EXTENT * 

♦ IF BECDIBED * 



CONTIN 

* INITIALIZE * 

* TO TEST * 

* DEVICE * 

* VALIDITY ♦ 

* ♦ 



* DU *.X 



***♦ 
LOADHSG X 

* SET UP ♦ 

* TO ISSUE * 

* MESSAGE * 

* U983I * 

* ♦ 
***4c**«««4'******* 



* AU * 

* ♦ 
***♦ 



* H2 * 

* * 
**** 



♦ ♦ 
SET ON 
IGNCBE 

INDICATOB ■■ 

* * 
*********** 



.♦ ABE ♦. NO 
.X*. ANY EXTENTS .♦... 
*. OPEN .♦ 



**4>**F 3* ********* 

♦ SET DP * 

* TO ISSDE * 
.X* HESSAGE *. 

♦ l»960I * 

* * 



HOVESYM X 

* MOVE SYMBOLIC * 

* UNIT TO * 

* CCB EOB * 

* EBBOB * 

* HESSAGE * 

]|i 4 :» ]|i 4 >» <|i 4> :(• 4 4 )|< ](■ i|c it< He :)< 



MCVEHSIT 

* INITIALIZE * 

* CPEN CCE * 
. .X* HITH * 

* SYMBOLIC DSn * 

* * 



* C5 *.X 



**** 
M0VECCN9 X 

*4i*«*c5*** ******* 

* SET T}P 10 * 

* ISSDI * 

* HESSAGE * 

* U906I IE BO * 

* BECOBD FCDND * 
ifiUfififlf**** ******* 



:t,****'Q^*********i^ 

*BEAtDISK KE* 
♦_♦_»-♦-♦- 4-*- ♦-♦ 

* BEAD VOLDHE * 

* LABEL * 

* * 
************it**** 



«*3|i**E5 ********** 

* SET DP TO * 

* ISSDE HESSAGE * 

* '♦9061 II NO * 

* ST^NDABD * 

* VCI 1 LlEIt * 

44444************ 



***** 

*HB * 
* DM* 



HOVECC« 

**4>44G1 ********** 

* SET DP TO * 

* ISSOE^HESSAGE * 

* 49071 * 

* IF BECOBD * 

* NOT FODND * 
444************** 



4** 4*H1 ********** 
*BEADEISK HE* 
*-*_*_»-4-4-*-*-* 

* BEAD NEXT * 

* EXTENT * 

* BECOBD * 
4**************** 



*** ♦♦J 1 ****♦*♦♦** 

* SAVE EXTEHT * 

* ADDBESS * 

* INITIALIZE * 

* CCB UITH ♦ 

* SYHB. UNIT ♦ 
44**444*444****** 



4****K 1*4*4****** 

* SET OP TO * 

* ISSOE^HESSAGE * 

* 49U7A FOB * 

* EXTENTS HOT * 

* ON SAHE DNIT * 
4**************** 



POSTOPEN X 

44G2******* 

* * 

♦ SET OPEN * 

* SNITCH * 

♦ IN DTF * 

* * 
44********* 

♦ ♦** ', 

* * 

* H2 *.X. 

* * , 
**** X 

.♦. 

H2 *. 

.* ♦. 

.♦ ANOTHEB *. NO 

♦. FIIE TO BE .*... 

*. OPENED .* 



♦♦**J2********* 

* SVC 2 * 

* FETCH ♦ 

* fSBOPEN * 
****44********* 



.*BYPASS *. 
.* VOLDHE *. 
.SEBIAI NDREEF. 
*, CHECK .* 



X 

***** 
*HE * 
* A1* 



44g34****** 
*EESET CPIB * 

* HONITOB SN * 
.X* LOAD DTF ADDB 

♦ IN BEG 1 * 
* * 

4********** 



4***J3*******4* 

* SVC 11 * 

* EXIT TO * 

* DSEB ♦ 
44**44********* 



4** **H5 ********** 

♦ SET DP * 

* TO ISSDE * 



4**************** 



44***a5*** ******* 
*MSGPHAS1 HE* 
4.4-4-*-*- *-*-*-* 

* TYPE IBFCB * 

* MESSAGE * 

* * 
44*************** 
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Chart MC. $$B0SDW2: SD Open Work File, File latel (1 of 2) 



* * 

* A1 * 

♦ * 



♦ ♦ 

♦ f$B0SDN2 * 

♦ * 



*FILB EXPIRATION* 










* SET LAST * 

* EXTENT * 

* INDICATOR * 

♦ ♦** I 

* * . 

* C3 *.X. 

* ♦ . 


.1. 

CI ♦. 

♦:%iLE*EJBELs*:*!ff. 


REREA 
. . .X* 


DPI 

*i|i>|iC;24>*«*4>*4<*4<>|e 

* 

GET ADER * 


*♦♦♦ X 


♦. MADE .* 




♦. LABEL .* 



* GET POINTEi^ ♦ 

* TO NEXT LABEL ♦ 

* IN CHAIN * 

* * 



♦RBADDISK m* 
♦-♦-♦-♦-♦-♦-♦_♦-♦ 

* READ P3 * 

* LABEL * 

* * 



4(4tiii**Dl********** 

♦ * 

♦ BOILD ♦ 

♦ FORMAT 1 * 

♦ LABEL ♦ 

♦ ♦ 



%4>i»4i4>*i»***4i*4i4i4<** 



* * 

* INITIALIZE * 

* TO HEAD ♦ 

* ket: and eata ♦ 

* * 



«*«*4<E2********** 



* * 

* BYPASS * 

* FORMAT ♦ 

* ID FIELD ♦ 



«AS 

RECORD 

FOUND 



***D4************ 

* WRITE * 
MESSAGE 
* U903I ♦ 



,* *. 


♦ ♦ 


.* *. 








«4i**K4********* 

♦ SVC 50 


* CREATING *. 


* MOVE ♦ 


.♦ HAS 


♦ 


. YES 


DATA SECURITY.* 


* SYMBOLIC UNIT ♦ 


*. EMPTY SECT 




.♦ 




* CANCEL 


*. FILE .* 


* INTO CCB ♦ 


*ECR EXTENT. 


* 






♦ 


♦ . ,* 




*. . * 








4<]|.4t«**4'4>**4>**** 


♦ . .* 


W****1t***iHt***1f** 


♦ . .* 






X 




* YES 


• 


♦ NO 






♦MD ♦ 

* B1* 

♦ ♦ 




**ftL*«, 


X 


♦♦♦♦♦F3,i*»,* 












4t*«««f2********** 








* * 


*READDISK MD* 


4i 




* 






SET DATA * 


♦ -♦-»,♦-*-♦_♦-♦-.♦ 


* INCREMENT 




* 






SECORITY * 


♦ READ FORMAT * 

* 1 LABEL ♦ 


♦ TC NEXT 




* 






SNITCH * 


♦ EXTENT 




* 







♦ SAVE ACIB ♦ 

♦ OF THIS ♦ 

♦ LABEL ♦ 

♦ « 



♦SEAECB LX* 
♦_♦-♦_♦-♦-♦.♦-♦-♦ 

♦ LOOK FOF ♦ 

♦ AVAIL. SECT * 

♦ FOR LAEIL * 



*)|i4>)|<4>C5*** ******* 

* INITIALI2E * 

* ICINTER IN ♦ 

* CURRENT LABEL * 

* INIT SEEK * 

* BUCKET * 



*NBITDTSK RE* 
♦_♦-.♦-.♦-♦-»-♦-♦,« 

* PUT UPEATED * 

* LEL BACK CN ♦ 

* DISK * 



^^^^t^g*** ****** 



^m^^^^i**** ******' 



4I********** 



FINDSPT X 

*4«**G1 ********** 
*SEAECH LX* 

♦FIND AVAILABLE * 

* LABEL SPOT * 

♦ * 



^tlc^^^'HI********** 

* SAVE ADDB IN ♦ 

* DTP, INIT * 

* SEEK ♦ 

* EUCKET ♦ 

* 4> 



]|.*4»|c4««:|i«)|.4«4i*4>i|i« 



.* FCBMAT 1 

LABEL 

*. FOUND 



)|i«*4i«*«*4*4>4 4.*«4>4i 



FORMATS 

* GET AEEB. * 

* OF 1ST 

* EXTENT ON 

♦ ¥3 LABEL 

♦ * 






.* IS IT 


♦ . 


NO 




*. LAST EXTENT , 


*.. . . 




*. 


* 






*. .* 






X 


*. . ♦ 




X 


**** 


* YES 




***♦ 


* * 






♦ ♦ 


* H5 ♦ 






* C3 * 


* « 






* * 


♦ **♦ 


X 

.*. 

H3 ♦. 

.* IS *. 




*♦** 




.♦ POINTER 


*. 


NO 




♦PRESENT TO LAST*..., 




*, LABEL . 


* 






*. .* 








*. .* 




X 




* YES 




* * 

* A5 * 

* * 
♦ **♦ 



* ADD 1 TO ♦ 

* NUMBER * 

* OF EXTENTS * 

* * 



4>**J2************ 

* NRITE * 
MESSAGE 
* II935I * 



IS IT 
FCBMAT 1 
. LABEL 



X 


*3t<*4>*K3********** 


****K2********* 


*NBITDISK MD* 


SVC 50 * 


♦-♦_»-♦-♦-♦-*-♦-,♦ 


CANCEL * 


* NRITE * 




♦ MODIFIED * 


4.*«4>4««4>*«««**>t< 


* LABEL * 




ix........*.r 




X 




* * 




* A1 * 




♦ ♦ 




*♦♦* 



* NRITE * 
MSSSACE 
* a9011 * 



****.15********* 

* SVC 50 * 

* CANCEL * 

* * 
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Chart ME, $$B0SDW3: SD Open Wcrk File, Extent tc DTF 



* ♦ 

* $$B0SDil3 * 

* * 



0PENHRK3 X 

♦READDISK ME* 

* READ * 

* FORMAT 1 * 

* LABEL * 



♦*«♦ 
* * 

♦ *** 




POINTEBX .♦. 

A3 *. 
.« IS ♦. 

* *. . ** * 

♦ . .♦ X 
* TES *♦** 




* F1 

* 




♦♦♦♦ 


"-SiJSJBa.J. 

* MOVE EXTENT * 
♦TO DTP. KCVE a * 

* AND L BEAE * 

* LIMITS IN * 





.* WAS 
*. BECOHD 
*. FOOND 



D1 *. 

. * IS ♦ 

LABEL 

STILL IN 

. VTOC 



* flBITE * 
.X MESSAGE 
* 49011 * 



♦ flRITE * 
.X MESSAGE 
♦ «»935I * 



..X, 



PAXEHTS X 

* SHIFT LABEL * 

* EXTENT 1 ♦ 

* POSITION TO * 

* LEFT ♦ 

* * 



POSTXTKT X 

* SET HEAT * 
* LIMIT IN 
* DTF lOE 
TYPE 1 



BESETPNT 

♦*D3******* 

♦RESET POINT* 

* IKD IN DTF * 

♦ SAVE SEC. NO. * 

OF THIS EXTENT* 

* ♦ 



4t«««£2********* 

* SVC 50 * 

* CANCEL * 

* 4 



* F1 *.X 



♦*♦* 
NOHATCH X 

* INCREMENT ♦ 

* BEG. TO NEXT * 

* LABEL * 

* EXTENT * 

* * 
fHti:/f ************** 



IS 
EXTENT A 
. TYPE 



HI *. 

.♦POINTER*. 
* PRESENT 

FOR FORMAT 
*. 3 LABEL . 



HOVEADER X 

4«9tt**J1 ********** 
♦READDISK ME+ 

♦ READ LABEL ♦ 

♦ IN CHAIN ♦ 

♦ * 
*ti*************** 



NEED *. 
CLOSE 
ECDTINE .* 



RESET 

MONITOR 

SWITCH 

* * 

^nln^in^it***** 



****Q3********* 

* SVC 11 * 

* BETDEN TC ♦ 

* USER * 



***itL]^H********* 

* SVC 2 * 
.X* FETCH * 

* $$B0SEC1 ♦ 
*************** 



♦ i!«BCSB«3 ♦ 

♦ READ DISK ♦ 

♦ SDBBCDTINE * 
*************** 



* SVC 

READ 
♦ DISK * 

**************Ht** 



**!t**lj^********** 

* * * * 

* * SVC 7 ♦ ♦ 

* * HAIT ♦ * 

* *IF BECOIBEB* ♦ 
*****n,*********** 



****it^^*** ******* 

* * 

* SET CONDITION ♦ 

* CODE FCB • 

* RECORD FOUND ♦ 

* ♦ 
i^************Ht*** 



****fty********* 

* RIJTDRN TO * 

* CALLING * 

* BOOTIKE ♦ 

i^******il,****:ti** 



* A3 ♦ 

* ♦ 
♦ *** 



***H 2**** ♦♦♦♦*♦♦* 

* WHITE * 
.X MESSAGE 
* U936I * 



****J2********* 

* SVC 50 * 

* CANCEL ♦ 

* * 



***K2***********+ 

* WRITE * 
.X MESSAGE 
* 49031 * 
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Chart MG. $$BCSDC1: SD Clcse Input and Output (2 of 2) 



*HF * 
* E3* 



COBOLBL . *. 








B1 *. 




#*-22******* 




.♦ *. 




♦SET SWITCH ♦ 




.* COBOL *. lES 


♦ TO INDICATE ♦ 




*. TBAILEE .*.... 


...J* 


FBCH CLCSE ♦ 




*. LABELS .♦ 


♦ BOUTINE ♦ 




♦ . .* 




4i * 




♦ . .♦ 




4c:(i:^*«:|>4i4'«4i4c 




* NO 








**** 








♦ MF * 








♦ F5 *.X. 








* ♦ 








♦*** 




* 




CLOSFILE X 








«*ci4c*«]|i«** 




X 




* * 


itr^L*H,Q2********* 




* RESET ♦ 


* 


SVC 2 * 




♦ LIOCS DIF * 


* 


FETCH ♦ 




* SWITCH ♦ 


41 


$$B0SDI3 ♦ 




« * 


*it< Hi* «:»*** 4*«4<** 












**** * 








♦MF ♦ 








♦ CI *.X. 








♦ ♦ 








♦ ♦** 














♦SET ILLEGAL^ 








♦ SEEK ♦ 








♦ AEDBESSES IN ♦ 








♦ DTP LOW ♦ 








♦ LIMIT ♦ 




***♦ 




4C4C4C******** 




♦ * 

* E2 ♦ 

♦ *♦♦ 




X 


NOTBKHLD X 




i^i^■£^\ic**i^^c^t* 


4t4>«*4>E2^ ♦♦♦♦♦♦♦♦♦ 




♦ RESET ♦ 


* 


GET * 




♦CCMMDNICATION+ 


* 


EETDRN ADDR ♦ 




♦ SWITCHES ♦ 


♦ 


FOLLOWING ♦ 




♦ IN DTF ♦ 


* 


AN OPEN ♦ 




* * 


* 


* 




*****^,****t' 






♦**♦ ', 








♦ MF ♦ 








♦ B1 *.X. 








♦ ♦ 








**♦♦ 




X 




ONEXDEF X 




.♦. 


DSEBEXIT 


««p14t4i:te:|c4<*4c 




F2 ♦. 


:»*P34<4**4<** 


♦ RESET ♦ 




.♦ ♦. 


* 


* ONIT EXCP ♦ 




♦ ANOTHER ♦. NO 


♦ BESET 


♦ IN DTF ♦ 


* 


PARAMETEB TO ...... 


....X^ MCNITCB 


♦ RESET OPEN ♦ 


♦.BE CLOSED. ♦ 


♦ SWITCH 


♦ INDICATOR ♦ 




*. .♦ 


* 


*#«:|c4<«««*:(c:|i 




♦ . .♦ 


****4>4***** 



» RESET ♦ 

LABEL 

CREATEE 

INDICATOR 

* * 



.♦ TRACK ♦ 
. BOLD OPTION 
♦. SPECIFIED. ♦ 



♦ JtBOSECI ♦ 

♦ READ DISK ♦ 

♦ SDBROOTINE ♦ 



READEISK X 

4t4<«4c*64^^ ♦♦♦♦♦♦♦♦ 

♦ GET ADDRESS ♦ 

♦ OF FIRST ♦ 

♦ READ ♦ 

♦ CCl ♦ 



♦ KtBOSDCI ♦ 

♦ Wi:iTE DISK ♦ 

♦ SUBBOOTINE ♦ 



♦ 6BT ADDBESS 

♦ OF FlBSl 

♦ WBITI CCW 

4> 



♦ INITIALIZE ♦ 

♦ CCB WITH ♦ 

♦ ADDRESS ♦ 

♦ OF CCW CHAIN ♦ 

♦ « 



♦ GET ADDRESS ♦ 

♦ OF CCB ♦ 

♦ FOE ♦ 

♦ SDPERVISOB ♦ 

♦ ♦ 



4>*4<£<t*4< ♦♦♦♦♦♦♦♦♦♦ 

♦ SVC ♦ 
READ 
♦ DISK ♦ 

***************** 



F4 ♦. 

.♦ ♦. 

I/O 

COMPLETED 



HiHi***fS**^******* 



01Hliitf}ti1fi(f**lt:t****** 



♦ * 

♦ INITIALIZE ♦ 

♦ TO RETOBN ♦ 

♦ TO $$BCLOSE * 

♦ ♦ 



4(**:te|] 24* ******* 

♦ SVC 2 ♦ 

♦ FETCH * 

♦ $$ECLCSE ♦ 

««:)€* 4 *******](( 4(:ti 



****G 3 ********* 

♦ SVC 11 ♦ 

♦ BETOBN TO ♦ 

♦ PBCBLEH FECG ♦ 

:tt* ************* 



*****Q4*t ******** 

♦ SET COJIEITION ♦ 

♦ CODE . FOR ♦ 

♦ BECOBD ♦ 

♦ FOOND ♦ 

♦ * 
***************** 



****!] 4********* 

♦ BETOBN TO ♦ 

♦ CALLING ♦ 

♦ ROOTINE ♦ 
*************** 



*****j1 *4<******** 

♦ * 

♦ INITIALIZE ♦ 

♦ TO FETCH ♦ 

♦ FREE PHASE ♦ 

♦ ♦ 
***********4t***** 



****K1********* 

♦ SVC 2 ♦ 

♦ FETCH * 

♦ $$B0SDC2 ♦ 
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Chart MJ, $$BODCUE: Dequeue Extert JIBs 



♦ $$BODQOI * 



* * 

* SAVE ♦ 

* BEGISTEBS * 

* 3 THBOUGH 8 * 

* 4> 



* IHITIiLIZE ♦ 

* TO RETOBN * 

* TO CAtLlSG * 

* PRASE IP HAHE * 

* IS SUPPLIED. * 



* * * 4> 

* ♦ SVC 22 * ♦ 

* ♦ SEIZE ♦ ♦ 

* ♦ SYSTEM ♦ * 

* * * * 



SKIP04 X 

* GET ADDRESSES « 

* COHH. EGH. * 

* FAYP ♦ 

* JIB TABLE * 

* * 
***************** 



*****f 1********* 

* GET 

* ADDRESS 

* OP 

* LOB 
* 

****************: 



*****B3********** 



***•**«*«*«****** 



*****C3 *««**•**** 

4> * 

♦ SATE ♦ 

♦ PA7P ♦ 

♦ POIFTER ♦ 

♦ * 
***************** 



*****D3********** 

* OPIATE * 

* PA7P IITH ♦ 

* PCIBTEB TO ♦ 

* JIB * 

* * 
***************** 



*****S3« ********* 

♦ OPIATE ♦ 

♦ PCIBTEB TC ♦ 

♦ JIB PBOH * 

♦ PCIBTEB TO « 

♦ BEIT JIE * 
***************** 



*****F3* ********* 

* OPDATE ♦ 

* JIE ♦ 
.* POIMIEB FBCH * 

* lATP SAVE ♦ 

* * 
***************** 



**** 

* * 

* B5 ♦ 

* * 

**** 

WW * * 

♦ ♦ SVC 22 ♦ ♦ 

♦ ♦ RELEASE ♦ ♦ 

* * SISTER * ♦ 

* * * * 
**•*******••«*«** 



.♦. 

C5 *. 



.* 

. .* 
♦ YES 



NOBOBTB X 

*****])5***«****** 

* GET ICIRTEB ♦ 

* TC PILE EEIM6 ♦ 

* 0PER5D ABD ♦ 

* TBCBEHEHT IT ♦ 

* * 
***************** 



AROTHEB 
PILE TO 
, OPEH 



POIHTEB 

TO 

JIB 

*. ,* 



**** 

* * 

* B5 * 

* * 
**** 



*«***]] 1********** 



***************** 



*****Fl|*4c ******** 

* TORR < OFP ♦ 

* OPER f BIT ♦ 

* AHD RESTORE * 

* REGISTERS ♦ 

* * 
***************** 



****G4********* 

♦ SVC 11 ♦ 

* RETORR TO ♦ 
>•> QSBR • 

*************** 



RESTORE X 

*****F5*********i 

* RESTORE 

* BEGISTEBS 

* AND LOAI 

* fETCH RARE 
* 
**************** 



****G5***«***** 

♦ SVC 2 ♦ 

♦ 51T0RR TC ♦ 

♦ CALLING PRASE * 
*************** 



EXTERT 

TYPE 

JIB 



*****J2**4<*****4'* 

* REPLACE * 

* LOB ADDBESS * 
.X* RITH ♦ 

* JIB ADDRESS * 

* * 
***************** 



* B3 * 

* * 
**** 
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chart ML. $$BC2321: SD Open Output, 2321 Extents frorn Console 



* * 

* $$802321 * 

* * 



CONVERT X 

* COHPLETE * 

♦ EXTENT * 

* CONVERSION * 

♦ FOR 2321 ♦ 
4> * 



*LH * 

* EU* 

* 4> 
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chart NB. CPMOD: GET Macro, Cne I/O Area cr ICFTR=YES 



«* « 4< A 1 « ** * * « 4'* « 

♦ INTBY FBCM * 

♦ GET H*CEO ♦ 

♦ EXPANSICN * 



* 

♦ SAVE 

♦ HIGISTEKS 

♦ 2-6 

* 



*****(; 1***4>**«**: 

* 

* LOAD 

* ADDBBSS 

* OP CCW 

* 
**4>«***««*«***4i4i 



.♦ DISK ♦ 
. OR DISKETTE 
*. DEVICE .♦ 



IJJCPDSK .*. 

II ♦. 

.* UPPER *. 

.♦ RECORD 

♦. LIMIT 

*. REACHED . 

*. .* 

*. .♦ 



* OPIATE * 

* CCHHR ♦ 

* SEEK ADDRESS * 

* ♦ 
***************** 



* B2 ♦ 

* ♦ 



SVC 

* EXECUTE * 

PEED 

♦ CHANNEL * 

EBOGBAH 

**:ti*4< ************ 



**** 

'I' ♦ 

♦ E3 ♦ 

* * 



AT END 
OF EXTENT 
. CN 3540 . 



C2 *. 
.♦ * 

CCHPLETE 



*****Q2**4<**4>4>4i«* 



***************** 



IS 
DEVICE 
. DISK 



*****B4********** 



***************** 



*****(;:(|** ******** 

* ♦ 

* ADD 1 * 
X* TO RECORD ♦ 

* COUNT * 

* * 
***************** 



*****0I) ********** 

* LOAD ADDRESS ♦ 

* OP USER'S EOT * 
.X* ROUTINE INTO 

* RETURN » 

* REGISTER ♦ 
***************** 



*X. 



***************** 



*♦♦* 
IJJCNDSK 

i^i|,il,f2************ 

* SVC ♦ 

EXECUTE 
* CHANNEL * 
PROGRAM 
***************** 



♦ RESTCBE * 

♦ BEGISIEES * 

♦ 2 THEOUGH 6 * 

♦ * 
***************** 



X 

.*. 
F3 ♦. 



****pi)** ******* 

* EXIT TO ♦ 
.X* USER'S EOF ♦ 

* ROUTINE * 



**** 

* * 

* B3 * 

* * 



****q3********* 

* RETURN TO * 

* EEOGFAB ♦ 

* PRCGBAH ♦ 
*************** 



* F2 * 

♦ ♦ 
**** 



MORE *. NO ♦ 

EXTENTS .* X* 

.AVAILABLE.* * 
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Chart ND. CPMCD: PUT Macrc, Twc I/O Areas (2 of 2) 



* * 

* IJJCPDSK ♦ 

* * 



♦ *** 
♦NC * 

♦ B3 *.X 



♦ OPPEB * 

BECOHE 

LIBIT 

BIACHir 



♦ * 

♦ OPEATl ♦ 

♦ CCHHB SEEK * 

♦ ADEBESS ♦ 

♦ ♦ 



LT .♦ DPPEB *. GT 

C*. EXTENT LIMIT .♦... 

*. EXCEEDED .* 



.."■*■*•.. 

YES .* IS THIS *, 
...*. AN INFUT 

*. PILE .* 

♦. .♦ 
X ♦. .♦ 
***** * NO 


♦X.. 


iaacp?03 .♦. 

B5 *. 
. ♦ *. 
NO .* NOBE *. 

*. EXTINIS .♦ 

♦ .AVAILAEIS. ♦ 

**. .** 

♦ 1ES 


* 






ia.3CP?A3 X 

it>4#C5******4t«*** 

* S^C * 
EXECUTE EEE 
* CBANN L * 

**4c4<4>************ 



.* IS *. NO 
.X*. DEVICE A .*... 
♦ . 35t»0 .* 



**♦* 

* ♦ 

* B5 ♦ 

* * 
**** 



* SVC 2 FETCH ♦ 

* tSEEBBTN * 

* TO CANCEL ♦ 



*♦*♦ 

* * 

* 65 ♦ 

* * 

**** 



D5 *. 

.* * 

I/O 

COMPLETE 



4:****i;54t********* 



SVC 7 
«AIT 



4c**************** 



IS THIS 
AN INPUT 
. FILE 



I/O ABEAS .*..X 



MOBE *. 
EXTENTS 
.AVAILABLE.* 



* * SVC 2 * * 

* * FETCH * ♦ 

* * tiBOPBN * ♦ 

* * * * 
***************** 

**** 

* * 

* G5 *.X. 

* * 
*♦** 

X 
*****(; 5*** ******* 

* * 

* AED 1 ♦ 

* TO ♦ 

* COUNT FIELD ♦ 

* * 
***************** 



***** 
*NC * 
* K3* 



X 

***** 

♦ NC * 

* H3* 



* B5 * 

* * 
**** 
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Chart NF. CFMOD! PUT Macrc, Cne I/O Area (2 cf 2) 



****Jll4>4i**«««** 




• IJJCPDSK 


* 




* 


4> 








**** 








*HB ♦ 








♦ PI ♦.X 








* * 








•♦♦* X 






IJJCPDSK .*. 






El *. 






.♦ ♦. 






. * OPPEB « 


MO 


♦.RECORD LIMIT 


,* 




♦. SIACHIC .* 






*. .* 






*. .* 




X 


♦ IBS 




* 








* R2 








4> 








«*** 


**4>*4>cl ***•'*'***<•>* 






* 




* UPDATE 


* 




* CCHHR 


♦ 




* SEEK Al 


)DRESS 


* 





***«4i*4i4i**««4i«)|i«* 



LT .♦ OPPEB ♦. GT 

...♦.EXTEHT LIBIT .*.,. 

♦.EXCEEDED .♦ 



IS *. 
DEVICE 
3540 .♦ 



*«**D3*4******* 

* SVC 2 lETCH * 

* SlEEBPTS * 

* TO CASCEl * 



. H2. 



NO .* IS ♦. 
...*, DEVICE .* 

*. 35ao .* 



* * 

♦ H2 ♦ 



.* HOBE ♦. HO 
EXTENTS .*... 
*. AVAILABLE.* 



* SVC 
IXICOTI IZED 
♦ CHANNEL * 
PB06BAR 



♦HI ♦ 

♦ 63* 



*ilt*4*J^ ********** 



««*4i4t*4c«4>*«**4i4i*4i 



* ♦ SVC 2 ♦ ♦ 



«*«««*«*««***«**« 



***m*fi2********** 

♦ * 

♦ ADD 1 ♦ 

♦ TO ♦ 

♦ CCDNT PIBLD ♦ 

***1Hti************ 



ENTERED 

EROH SD 

CLOSE 



X 

♦HE * 



♦HE * 

♦ P5* 

* * 
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Chart NH. CPMCD: PUT Macrc, ICFTR=YES (2 of 2) 







♦ * 




* IJJCPDSK ♦ 




41 * 








**** * 




♦ SG * 




* F1 ♦.X. 




* * 




*«*« X 




IjqCPDSK .*, 




B2 *. 




. * *. 




.* DPPEP *. NO 


*.BECCIiD LIMIT .*. 




*. BEACBEC .* 




*. .♦ 




*. .♦ 


X 


* YES 


* 
♦ H3 






* 


I 


«*** 


X 




4>«*4i*C2**«*«4>**** 




* « 




♦ UPDATE * 




* CCHHB * 




♦ SEEK ACBBBSS * 





i^**«4i**4i*4 «**«*«* 



LT .♦ DPPEB *. GT 

...♦.EXTENT LIBIT .*... 

♦. EXEEDED .* 



IS 

nil' 



*4>**D4«*««4>**** 

* SJC 2 P?TCH ♦ 

* SIBEBBTH TO ♦ 

* CANCEL ♦ 



* H3 * 

* * 
4>*4>* 

IJJCPF02 



NO .♦ IS 
...♦. CE7ICE 
♦ . 35l»0 



* H3 * 
IJJCPF03 



,* MOEE *. NO 
EXTENTS .♦... 
♦.AVAILABLE.* 



IJJCPFA3 X 

* SVC ♦ 
EXECUTE PEED 
* CHANNEL ♦ 
PBOGBAR 



B2 *. 

,♦ * 

I/O 

COMPLETE 



*NG * 
♦ F3* 



4> * * * 

* * SVC 7 * ♦ 
. .♦ ♦ BAIT * * 

* * * * 

* ♦ * ♦ 



* * 

* H3 ♦.X 

* ♦ 

**4r* 
4i«4i4>*||3*«4>4i««4i**; 

* Air 1 

* TO PIELE 

* COONT 

* 
]k4>)ti«****«*4i****4c 



ENTEBED 

FBCB SE 

CLOSE 



*. .♦ 


X 


* YES 


***** 




*NG * 




* C3* 


X 


♦ * 


«4>««« 


* 


»NG * 


IJJCPCAL 


♦ IS* 




♦ » 




* 




IJJCA12 
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Chart PB. DIMOD: GET Macro, Two I/O Areas 



*' * 

♦ A3 ♦ 

♦ ♦ 



* DIMOD ♦ 

* GET HACEO * 

* 2 I/O ABIAS ♦ 



IJJE1XXX 

* * 

* ADD DTP BYTES ♦ 

* 74-75 TO ecu ♦ 

* ADDRESS * 

* ♦ 



IJJE5XXX X 

♦IJJE6XXX PB* 

* READ A * 

* EECOHD * 

* IP HEQOIBIE * 



♦ ♦ SVC 7 ♦ * 

♦ ♦ lAIT ♦ * 

* *IP REQOIBED* * 

* * ♦ * 



* ADD 1 TO ♦ 

* RECORD NUMBER * 

* IN SEARCH ♦ 

* ADDRESS * 

* IP REQOIRED ♦ 



IJJIOXXX .*. 

F1 ♦. 
.♦ UNIT *. 
.* EXCEPTION 
*. BIT ON 
*. IN CCB . 



IJJJ8XXX X 

♦ EXCHANGE ♦ 

♦ ADDRESSES OP * 

♦ THE TNC I/O ♦ 

♦ AREAS * 

♦ IP REQUIRED * 



*IJJE6XXX PB* 

READ A 
RECORD 



**««*««««4>*4>4i«4i«4i 



IJJL5XXX 

* SET * 

* PIRST PASS 
* INDICATCB 

* TO 

♦ ♦ 



* RETURN TO * 

* ADDRESS IN * 

* REGISTER 11 * 



IJJJ1XXX X 

«4i*4<4>f2********** 

* tOAI REGISTER * 

* «ITH * 

. ..X* ADDRESS OP *. 

* BCUTIHE * 

* PROM DTP * 



**4<*A4*«***4>«** 

* DIMCD ♦ 
*UPDATE ADDRESS * 

* SUBROUTINE * 



* UPDATE- CCHHR 

* SEEK ADDRESS 
IP REQUIRED 



:„ii.ii5S{iiJ«: 


* * 


*4<4t«*4>4i*4>*««**4>** 


♦**♦ r 




* * . 




* C3 *.X. 




* * . 




***♦ 


X 


IJJPSXXX X 


.♦. 


**««*C3********** 


c«» *. 


* * * « 


.* *. 


** i?ass?^5iii** : 


.* IS *. 


*. DEVICE .* 


* IN DTP TABLE* * 


*. 3540 .* 



♦ D5 ♦ 

* * 
**** 



.* UPPER * 
.EXTENT LIMIT 
*. EXCEEDED .* 



E4 * 
* 
TWO I/< 
AREAS 



X 
IJJN3XXX .*. 
P4 



* C3 * 

* * 
**** 



* P2 ♦ 

* * 



MORE *. 
EXTENTS .* 
.AVAILABLE.* 



*4<*G4************ 



* SVC * 
.X EXECUTE 

* CHANNEL * 
PROGRAM 



* * * * 

* * SVC 7 * ♦ 

* * NAIT » * 



* IBTUBN TO * 

* CALLING * 

* ROUTINE ♦ 



IJJK5XXX X 

*4iH1******* 

*CONVERT ASA* 

*CONTROL CODE * 

* TO EBCDIC 

*CONTROL CODE * 

* * 



.♦ 

.* 
YES 



TURN ON 

PIRST PASS 

INDICATOR 

* * 



* * 

* A3 * 

* « 



* SVC 
ISSUE PEED 
♦ CHANNEL * 
PROGRAM 



.X. 
X 
.*. 



J1 *. 

.*«LRERR *. 
OB ERROPT 



IJJK8XXX 

«*«4<*J2********** 

* tOAE REGISTER * 

* 1 NITH THE * 
...X* ADDRESS OP *. 

* COBEENT I/O * 

* AREA * 



* * BRANCH TO * * 

* *USER«S RTN.* * 
,X* *EXECDTE AND* * 

* ♦ HETOFH * * 

* * * * 
4>4t***««********** 



R4 

I/O 

COMPLETE 

**. .*' 
*. .* 
♦ YES 



* * SVC 2 * * 

* * PETCH * * 

* * $$BOPEN * • 

* * * * 



*«*«*I]5:»*« ««*«**« 



4i4i«***«««*««4>4>««« 



K1 *. 
EEBOPT 



«4<«*K2********* 

* SVC 50 * 

* CANCEL * 

* « 



♦ B1 * 

* * 



♦ A3 * 

* « 
*♦*♦ 
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Chart PD. DIMCD: PUT Macro, One I/O Area (2 cf 2) 



***** 

*TJC * 

* CI* 

♦ ♦ 



IJJF8XXX X 

ifcitc It 4>*;t 2** ******** 

* * 

* GE1 HECOBD * 

* HDHEEB TRCn * 

* COUNT FIELD ♦ 

* * 

itiitDliiialc:^*^! 4c ******** 



.* OPPEH *. GT 
*.EXTEMT LIMIT .♦ 

♦.EXCEEDED .* 
♦ . .* 


.* IS ♦. 
. ..X*. DEVICE A 

*. 3540 .* 
*- .* 


.??.. 


*. . * 


*. .* 


X 


* EQ 


* YES 


***** 
*PC * 
*^B2* 



. * BOBE ♦. 

EXTENTS 

*. AVAILABLE.* 



* * 



* ♦ 



SVC 

♦ EXECUTE SEED* ♦ 

♦ ♦ CHANNEL * * 

♦ * EBOGBAM * ♦ 



12 *. 

.* ♦ 

I/O 
CCWPLETE 



*4c***G 2**** ****** 



3(1 :4c :»*4i4> *********** 



***** 
*PC * 
* D3* 



* * SVC 2 * * 

♦ ♦ FETCH * * 

♦ * $$BOPEN * ♦ 

* * * * 



***** 
*PC * 
* F2* 
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Chart PF. DIMOD: PUT Macro, Two I/O Areas (2 cf 2) 



♦ A2 * 

♦ ♦ 



****^'\********* 



* DIHOD ♦ 

* IBITE BICOBD ♦ 




LT .♦ EXTENT 
...♦. LIBIT 

♦.EXCEEDED^ 

*♦. .♦* 

♦ IQ 


IJJE6XXX .«. 

.♦DEVICE**. 
HO .♦ DISK. *. 
...♦. DISKETTE .♦ 
♦. RDB, OB .* 
♦.TAfE^.* 


.TJJH2XXX .♦. 

E2 *. 
.♦ ♦ 
. NO .* IS 

':"*-..'"]iS? ' 
i 


♦ yis 


***** * tES 
♦ PE ♦ 




♦ 


IJJF8XXX X 

*****Q^********** 

♦ ♦ 


C2* '♦. 

- ♦ ♦ 


♦ DPEATl ♦ 

♦ CCHHB SEEK ♦ 

I *555E§s IF ♦ 




. ♦ INPUT 
♦. PILE 

♦. 



A3 ♦. 

.♦ ♦. 
.♦ IS ♦. NO 
.X*. DEVICE A ...... 

♦. 35U0 .♦ 
♦ . .♦ 

♦. .♦ X 
♦ YES ♦♦♦♦♦ 
*PE ♦ 
♦ GH* 
* * 



♦ ♦♦♦ 

♦ * 

♦ A2 ♦ 

♦ ♦ 



I/O A6EAS 



*****-£-\********** 
♦IJJG3XXX PE ♦ 

♦ TEST FOB ♦ 

♦ I/O ♦ 

♦ COHPIETE ♦ 
***************** 



F1 *. 






♦ . 






2560 


* 


NO 


OB 




♦ .. . . 


5a25 


* 




.♦ 






♦ . .♦ 




X 


♦ YES 




***** 
♦PE ♦ 

* nn* 


X 






***** 




* 


♦PE ♦ 






♦ H5^ 







.♦ hobe ♦. 

EXTENTS 
♦.AVAILABLE. ♦ 



X 

***** 
♦PE ♦ 
♦ J1* 



♦.AVAItAElE.^ 

*♦. *•* 

♦ YES 



♦ SVC 
EXECDTE IIED 
♦ CHANNEL ♦ 
FSOGBAH 
***************** 



G3 ♦. 

.* ♦ 

I/C 

CCHELETE 

'♦. .♦ 

♦. .♦ 
♦ NO 



*****fl2********** 



***************** 



X 

*♦♦** 
♦P^ ♦ 
♦ ?!♦ 



***************** 



X 

***** 
*VE* 
* C5^ 
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Chart PH. $$BERPTP: 1018 Punch-Tape Punch Errcr Reccvery Rcutine (1 of 2) 



* A2 * 

* * 

*♦*♦ 



* ♦ 

* A3 * 



* ♦ 

* $$BERPTP * 

* * 



4>**«iK£l*4>4>*4>***** 



« 4 :(■ 4 * :tc ]|< « * 4. :|. 4 * * « * « 



Hii^'^,tfitj^2*** ******* 



*itc***4)|t«4c4cit>4c4i4<4i4t« 



.* CHAB 'I' 
*. IN fiSSSAGE 
*. =1» 



* SEl ANSHIB * 

* ABEA ADDEESS * 

♦ IK READ CCil * 

♦ * 



i^'tiilLittit'Ji2*******'*** 



i^^i*i^iiff^2********** 

* ♦ 

* EESET ♦ 

* HETBT * 

* CCtJNIEB * 

* ♦ 



.* PETRI 


♦ 


. NO 


* POT BEAE 


*. CODNT 




. * 




* ecu ADDBESS 


♦.EXCEEDED 


* 






* IN CCE 


♦ . .* 








« 


*. . * 






X 




* YES 






**♦* 




**♦* 






* ♦ 




* * 






♦ A5 ♦ 




♦ El *.X. 






♦ * 




♦ * 






***if 




♦♦♦* 










^ifiKiHifTS'l ********** 




**ii22******* 


* 




♦ 






* GET UNIT 




* 




* SVC 


* ADEBESS IN 




# 




BEAE 


♦PRINTABLE PORH 


* 




* FESPONSE 



*«*«**«««** :H***** 



* * 

* MOVE * 

* CHARACTERS * 

* IN MESSAGE * 

* * 



«*«*«* 44*** «**4<*4t 



itiit'***f2********** 



:)■**************** 



ti***1liQ2********** 

* * 

* SHIFT F5CH ♦ 

* LCBEB TO ♦ 

* OPPEB CASE ♦ 

* * 



44>***H1 ********** 

* * 

* SET MESSAGE * 

* ADDBESS TO * 

* WBITE CCW * 

* * 
4>*******K>*******4i 



* SET WBITE CCW * 

* ADDRESS IN ♦ 

* STSLOG CCB * 

* * 



SVC 
* ISSDE MESSAGE * 
UP01I OB 
* aP02D * 

:te!Ct*************** 



**** 

* ♦ 

* A2 * 

* ♦ 
*♦** 



««**Bt(********* 

* SVC 2 * 

* FETCH ♦ 

* I^BCLCSP ♦ 

*)ti]|(4>**** ******* 



*«**C3********* 

* BETOBN ♦ 

* TO DSEB * 

* * 
*************** 



* ADC ONE 

* TO B?TF"! 

* COONT 

* 
*4t***4i*4<**4*«*4>4>: 



*»i»4t£5****«44ti»«* 

* 

GFT DltElE ♦ 

CHATiACTIB * 

FBOn DTF * 

* 

4c4i*«******i|<4i4<4i** 



*****C5*** ******* 

* PUT CLIAF * 

* FIELD ADDBESS * 

* IN WBITE * 

* MODIFIED CCW * 

* * 
4i)tt**4>*i|>]|r***«*4>4>iti* 



**4>4«{;5***4««*** 

* PDT DELETE 

* CHABRdlF 

* ItDBESS IN 

* liBITB CCW 
* 

111********* *«****: 



***** 

♦ PJ * 

* J3* 



LAST 
DSEt CCW 
. WBITE 



**** 4>p 11** 4>*4> ****« 

* * 

* MOVE CHAB * 

* Ml' IN * 

* MESSAGE * 

* ♦ 
«4<**3»******4i4>4i*** 



* El * 

* ♦ 
**** 



*4>)|c4*ff5i|<«*9|***4*« 

* GET BESIDOAL * 

* CODNT. CCW ♦ 
♦CODNT, SDETBACl* 
♦BESIDDAL CCDNT * 

* * 
IK********* «****«* 



ZERO 
CHBEACTEB 
. PDNCBED . 



)t<4i***T]5***)»4***** 

* FOBCE 3 * 

* BACKSPACE, ♦ 

* 1 ElASK. * 

* 2 deletI * 

* * 



.* CANCEL *. YES X 
*. becdested .* 



*if*nj2********* 

* SVC 6 * 

* CANCEL * 

* * 



NO .* IGNOBE 
. ..*. BEQUEST 



35 *. 

* HCFE ^ 

THAN 1 

CHAB 

PDNCH 



*4<*)»i|<;^5**4>4»***** 

♦ FOBCE 2 ♦ 
» E8CKSPACI, * 

* 1 BLANK, * 

* 1 DELElf * 

♦ ♦ 
*4>***4>***]|< ******* 



***** 
*POI ♦ 
* A1* 
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Chart QA. $$BCCP01: Open Device Independent Files, Phase 1 



♦ A2 ♦ 

* * 



♦ ♦ 

♦ $$BOCP01 ♦ 

♦ ♦ 



♦GET ADDBESS OF * 
♦COMHONICATIONS ♦ 

♦ REGION * 

* » 



CI *. 

.* DISK * 

BISIDEMT 

SYSTEM 

. TABLE 



* GET ERBOR * 

* MESSAGE ♦ 

* •t»883I» ♦ 

* ♦ 



* SVC 2 ♦ 

* EETCH * 

* $$E0MSG1 ♦ 



* SVC 2 * 

* FETCH * 

* S!$EOCP02 * 



*. CKPTB 


.5. 










INDISC X 




A3 *. 








♦♦♦♦♦AS********** 




* * 








* INIICATE tISF * 


.* 


IS 


*. 


YES 




* (X'20« IN DTE * 

* FYT'S 12 AND ♦ 


*. 


DEVICE A 
PBINTEE . 


4> 


*. . . . 












* X'ls? IN DTP ♦ 




♦ . .* 










* BYTE H3) * 




♦ . .* 












* NC 






♦♦** 

* ♦ 

* B«» ♦.! 

* * 








i 






♦*** 




X 


.' CKHGTP 


.♦. 






ONTBCP 




.*. 




B3 *. 






X 


B5 *. 




4> * 






*4c*4iBl)4i*««*](i 41111 4> 


.* *. 


'. NO .* 


IS 


* 




♦ SVC 2 * 


NC .♦ IS DEVICE *. 


♦. 


DEVICE A 




♦ 


* $<BOCE03 * 


...*. A DISK .♦ 


* 


TAPE 


* 




♦. . ♦ 




*. .♦ 






*«**««4i4i«****4>* 


*. .* 




♦ . .♦ 








X ♦. .♦ 




* YES 








♦*♦♦ 




X 










T»"13....J 



DEVICE 


*. 


NO 


SSIGNED 


* 


♦ .. . . 


, , * 






*. .* 




X 


♦ YES 




. ,2 

♦ ♦♦* 


X 






.*. 






El *. 






* 






DEVICE 


*. 


YES 


IGNOBED 


*' 




.* 






*. .* 




X 


* NO 




♦ ♦♦♦ 



***4>*c3**** «*♦*** 

* SET TAPE ♦ 

* INDICATCBS ♦ 

* JXMO, X'FIM ♦ 

* IM DTP (BYTES ♦ 

* 12 AND 131 * 



INITIAL X 

4c«4>4>*D3 *♦**'•'♦**** 
*LriOEEG QE* 
♦_♦-♦-♦-♦-♦-♦-*-♦ 

* LCAE DSEB'S ♦ 

* lOBEG WITH ♦ 
*IOABEA ADDBESS * 



E3 *. 
* PILE ♦ 
CEENED 
BY JCE 
CONTROL 



DEVIC 
= 351 



**** 

* * 

* 02 * 

* * 



. * IS DEVICE *. YES 
A DASD .*.. .. 
*, DEVICE .* 



#iifif 1^02** ******* 

* SVC 2 * 

* PETCB ♦ 

* $$E0CPT2 * 



* A5 * 

* * 
*♦♦* 



* * 

* SET OP CCW ♦ 

* FOB BEAt ♦ 

* OR UBITE ♦ 

* * 



CKRST 

* HOVE X»FO« * 

* INTO BYTE 13 * 

* OE DTP (IND- * 

* OTHER THAN * 

* DISK OB TAPE) ♦ 

*i!fil,if-i,:t'**********^ 



IS DEVICE 
A READIB 
. PUNCH . 



♦ *♦♦ 

♦ ♦ 

♦ J2 * 

♦ * 

♦ *♦* 



itiif***J2********** 

* * 

* INITIALIZE TO * 

* FETCH ♦ 

* DTFCP/DTEDI * 

* 3510 PHASE ♦ 



#ilfi)!^,f^2********* 

* SVC 2 * 

* FETCH ♦ 

* 'BSEODOCP * 



****G3********* 

* SVC 2 * 

* FETCH ♦ 

* $$E0CPT1 * 

««4*44444*4<4**« 



:tti^ifitYl2********* 

* SVC 11 * 

* TC EFCELEH ♦X. 

* PECGEAB ♦ 



iliti***c5********** 

* * 
*lNtICATE DEVICE* 

* TYPE IN DTP ♦ 

* EYT1? 29 ♦ 

* * 



OTJTPDT X 

* INSERT NDMEEP ♦ 

* OF BECOEtS ♦ 

* TRACK IN DTP * 

* BYTE 72 ♦ 

* * 



CKSYSLNK 

:^*n'**^'i********** 

* INDICATE ♦ 

* tTFSt OIEN * 

* JX«20»f IN * 

* tTF EYTE 20 ♦ 

* IF REQDIRED ♦ 

«**4«4****4*)»4>4** 



SYSO 

***4*F54**«*«4t*** 

* INDICATE * 

* INPDT CE ♦ 



**««**** 4* ««** 4*4 



STKCN X 

4>44 44G5**4'***4<**4' 
♦LDIORBG CE* 
*-«.«. *.4i.«.«-|.4 

♦ tCAC DSEB'S * 

* ICEEG WITH * 
*TOAHEA ADDRESS ♦ 
44 4 4 44 44**44 4*44 4 



ANOTHER 

DTP TO BE 

. OPENED . 



****ja**4**4**4 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
«4i4i«44«4444444* 



**** 

* * 

* A3 * 

* 4 
**** 
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chart QC. $$BOCP03: Open Device Independent Files, Phase 3 



* * 

* $$EOCP0 3 * 

* * 



4:ti 41 *itiB-f*4i*4< ****** 

* GET ♦ 

♦ ADDBESS CF ♦ 
♦COMMUNICATIONS ♦ 

* REGION ♦ 

♦ * 

:* 3» :«< :» :«! :ii # 4c * :([ :» * 4> * * * !t> 



♦♦»2******* 

♦SEl SIAEEB * 

♦ IkEICATOE 
..X* ANC SECOND 

♦ INEICATOP 

* IN DTP ♦ 



♦LDIOFEG QE* 

* LOAD OSEH«S ♦ 

♦ lOBEG WITH ♦ 
♦ICBBEA ADtBlSS * 



* ?H * 

* * 



* COMPOTE * 

* PDB ENTBY * 

* ADDBESS * 

* * 



* ADJUST BYTE * 

* 95 FOB NON- * 

* DISK DEVICE * 

* (X'OOM ♦ 

* IF EEQOIRED * 



* SET OP CCW * 

♦ FOE EIAE ♦ 

* OB URITE * 

♦ * 



CKBST X 

♦MOVE X»FO« * 

♦ INTO BYTE 
* l»3 OF DTF 

* (NC DISK OP 
* TAPE) * 



DE .*. INDPCH 

Hi *. **H2******* 

.* *. * SET ALL * 

.* DEVICE *. YES *BECOIBED SW. * 

*. A PUNCH .* X*AND IMDICATCES *. . . . 

*- .* X * FOP DEVICE * 

*. .* , * TYPE USED * 

♦ . . * . ♦*♦>).♦**♦♦♦* 
* NO 



A3 * 



♦ * 
SET PPINTIE 

INEICATCF 
IN ETF 

♦ * 



m03U. 
3203. 6b 
. 52030 



* SET mo3 * 

MOEE 
* IF BECUIBED ♦ 

4i 41 * * « 1)1 4> 4> * 4 * )» 4 * :«> t> * 



* * * * 

* * SVC 7 ♦ * 

* * WAIT ♦ * 

* ♦IF EECOIBED+ ♦ 

* * ♦ * 



UNTBCE X 

♦ SUETEACT CNE ♦ 

♦ FECH EFCCED ♦ 

♦ COUNT ANE ♦ 

♦ ADD CNE TO ♦ 
♦lOAEEA AEEBESS ♦ 



AJALT 

♦ INCBEHENT ♦ 

♦ ALTEEKATI ♦ 

♦ I/O AEIA ♦ 

♦ ADDBESS * 

♦ EY ONI ♦ 



SAVSYS 

♦ SET EJECT ♦ 
♦ANE SUPPRESS ♦ 

TBANSFER ♦ 

BECUIBED ♦ 



♦ S'^T 2660 Cn ♦ 
♦5a25 INDICATOR 

♦ IN DTF ♦ 
* * 

*********** 



MFCX X 

*****pi(** ******** 

♦ MOVE OUTPUT ♦ 

♦ COM TO x«8n» ♦ 

♦ AND RESET ♦ 

♦ CCW POINTER ♦ 

♦ IP RT?guiRED ♦ 
********{******** 



ECU 
CCV» 



*********** 



**H3******* 

* * 

♦ BESET 

♦ EEAEEP-PONCH 

♦ SWITCH 

* * 
*********** 



.UNTEC X 

*****j -;*«******** 

♦LDICFEG CI* 
*_*_*_*-*_*_*_*_* 

♦ LCAD USEE'S ♦ 

* ICEEG KITH * 
♦lOABEA AEEBESS ♦ 
***************** 



MF3 

**(;;5******* 

♦TKS^iJT ritu* 

♦CCMHANE COEE » 
. ..X+ IN CC«» FOB 
^ HOPPER 2 



**])4******* 

♦ GET AND ♦ 

♦MODIFY PUNCH ♦ 

♦ecu TO SUPPR^SS^ 

♦DATA TRANSFERS 

SET BYTE CNT+ 

*********** 



MF5 X 

**ij(|******* 

♦ SET EJECT ♦ 

♦ AND PUNCH ♦ 

♦ CODE IN 

♦ PROPER CC«J ♦ 

* * 
*********** 

**♦* * 

♦ ♦ . 

♦ FU ♦.X. 



ANOTHER 
DTF TC BE 
. OPENED . 



****GU** ******* 

♦ SVC 11 ♦ 

♦ TO PROBLEM ♦ 

♦ PROGBAM ♦ 
*************** 



SET 2560 
OR 5^25 

INDICATOR 
IN DTF 



****P5*** ****** 

♦ SVC 2 * 
. X+ FETCH * 

♦ ttEOPIN * 
*************** 



* YES 


**** 




* * 




* FU ♦ 


X 


* * 




**** 


* ♦ 




* A3 ♦ 




* * 




**** 





2560 


* 


NO 


CB 5ti2E 


*' 


♦ - . . . 


.♦ 






♦ . .♦ 




X 


♦ YES 




**** 

* * 

* FU ♦ 


X 




♦ * 


**** 




**** 
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Chart QE. $$BCCP11: Open DTFCP (Version 1 Only)^ Phase 1 (2 of 2) 



*♦*♦♦ 



♦ $$B0CP11 ♦ 

♦ LOAD BE6ISTER * 

♦ SOEBOOTINH ♦ 



* INDICATE * 

* PBINTER ♦ 
(X«OI»«) IN *. 
DTP BIIE 21 ♦ 

w * 



.X* 



X 

*QD * 
♦ A3* 



J. 

CI ♦. 
♦ ♦. 

INPOT 

♦. .♦* 

*. .* 
♦ NO 



4i4t***C1****f>l'**** 

* HOVE I/C ♦ 

* ADBBESS TO ♦ 

* BEGISTEB ♦ 

* SAVE AREA * 

* * 



II *. 
.* DTP ♦. 
NO .* INDICATE *, 
,..♦. PBINTBR OR . 
♦. PUNCH .* 
♦. .* 
*. .* 
♦ YES 



* * 

* GET POINTER ♦ 

* TO CCNTBOL ♦ 

* CHARACTER ♦ 

* • 



G1 *. 

.♦ DTPCH ♦. 
* GENERATED 

POE DISK 
*. YES 



**4>«**«**4>*****4i4i 



« AREA ADDRESS * 

* IN SAVE AREA * 

* FOB OSER'S * 

* I0RB6 * 



«*4>«K14>4i4i]|i4i4c*4i4< 

* EETOBN TO * 

* CALLING * 

* BOOTINE ♦ 



**** 

* QD * 

* D1 *.X 

ERRCR X 

i^illi^*i^C2* ********* 

* €IT EBBOB ♦ 

* MESSAGE ♦ 

* «a8831« ♦ 

* ♦ 

♦ ♦*♦ 

* ♦ 

* D3 * 



* SVC 2 * 
^CAIt 



* * 

* INDICATS TAP^ * 
X* (X'OI'J IN * 

* DTP BYTE 21 * 

* * 



^mdtnufQH** ******** 
♦LDIOBEG QE* 

♦ LOAE DSETl»S * 

♦ lOREG NITH * 
*I0ABEA ADDBESS * 

♦ I|t ]|< 4c 9|ll|c * 4t 3|C 3» 4l * 1% 4c 4c * * 



♦ JSBOBSGI 



*Qr * 

* E2* 



. * JOB ♦ 




CONTBOL 


*. YES 


OPEN 


.*..,. 


. FILE 


* 


*. .* 




*. .* 


X 


* NO 


***** 




*Q0 * 




♦ ?3* 




♦ * 




♦ 


X 


CHKHOB 


.*. 




EU *. 




.♦ ♦ 




INPUT 


*. 


PILE 


. * 



* SIT DP FOB ♦ 

* IXCP. GET * 

♦ ADDRESS CF * 

♦ ♦ 
4i4i*4>**«**4<******* 



***G3* *********** 

* SVC * 
SINSF 
* CCHHAND * 

**«4>*** ********** 



*****f]2*** ******* 



***************** 



H3 *. 
.* ♦. 

COBPLETE 

'*. .*' 

*. .* 
* YIS 



* SET UP FOB 

* EXCP, GET 

* ABDHESS OF 
* 

4c***4< *********** 



4c****|}4******4<*** 

* SIT TAPE * 
*O0TPaT (X»08») * 

* IN DTF * 

* BYTE 21 * 

* * 
4c******4i********* 



****J4********* 

* SVG 2 ♦ 

* CALL * 

* t$BOHT06 * 
*************** 



*****K3********** 

* * 

* INITIALIZE * 

* PEINT HESSAGE * 

* U88aD * 

* * 
*4>**************« 



* D3 * 

* * 
♦ *** 
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Chart RA, $$B0CPT1: Open DIFCP and DTFDI Input Tape 



♦ ♦ 

♦ A3 * 



* ♦ 

* fSBOCPTI ♦ 

* « 



CPTAPE 
OPININIT 
RELNPXl X 



* 4c 4c)ti * * * * iti* * 4> 4> 4> * ** 



* MOVE DENSITY * 

* BITS TO SET ♦ 

* flODE AND * 
*PEBMANENT FLAG * 

* IN CCW ♦ 
iHtfilf^>*if *********** 



* GET LOGICAL * 

* ONIT FHOH * 

* DTP TABLE, * 

* GET DTF ♦ 

* FILENAHI * 

4**************** 



*dii*iinii2y********** 

* MOVE ADDBESS * 

* OF TLEL * 

* I/O AREA TO * 

* CCB * 

* ♦ 
***************** 



*i)i***f'\***it'****** 

* MOVE PHASE ♦ 

* ID TO DPPEB * 

* B-TBAHSIENT * 

* AREA ♦ 

* * 



**if'DifD2********** 

*SBCHtAB BE* 
♦-♦_♦_♦-♦_ ♦-♦_♦_♦ 

* SBABCH FOB ♦X. 

* LABEL ♦ 

* INFORMATION * 
^^if*** *********** 



BEHIND *. 
CPTICN 
.SPECIFIED.* 



#****fi2********** 

* * 

* SET CCS OP ♦ 

* CODE TC * 

* BEHIND * 

* * 
it,***tt^*********itf*iif 



*«]ti«4<c3*****4<**** 
*I0 BC* 

♦ _♦-♦- *-4_4,-#_#«* 

♦ BEHIND ♦ 

* TAPE * 

* ♦ 

iH(HH(^*it::lt********** 



YES .* STANDABD * 
......LABELED TAPE 

*. FILE .♦ 



VOL 1 
LABEL 
READ 



HDR1CHK X 

4f****QH********** 

* HOVE BLANKS * 

* INTO VOLOME * 

* SERIAL NOMEIR ♦ 

* SAVE AREA * 

* * 
i^****il^*■^^**itLi^**^^** 



HDR1 

LABiL 

BEAD 



* THIS A * 

5ETDEN FEOM 
*.$$BOCPni .* 



DETERH 

*:tiifi**^'\it:********* 

* INITIALIZE ♦ 

* PBOCEDOEE * 

* LIST POINTER ♦ 

* TO ZERO * 

* * 



*i^^^i|HtlJ ^**i)tt'****** 

* INITIALIZE * 

* MESSAGE * 
♦RETORN ADDBESS * 

* REGISTER ♦ 

* (MSGRTRG: * 
*iHtt*4************ 



**Q2******* 

* TDBN OFF ♦ 

HESSAGE 
REENTRY 
SWITCH 

* ♦ 



,* RETURN ♦. 

ADDRESS 

♦.SPECIFIED.* 



♦♦♦*j2***»***** 

* RETURN TO * 

* ADDBESS SPEC * 

* IN REG 14 * 

*:i^!ltL*******if**** 



DETPATH1 

4c«4c«4c;E3 ********** 
*SENSE RB* 

* CHECK FOB * 

* LOAD POINT * 

* * 
Xi********* ******* 



4c4c*itt*F3* ********* 

* SET CCH * 

* COMMAND CCDE * 

* FOR BEAD * 

* OPEBATICN * 

* * 



ifUc^iH^Q-iitit******** 
*IC BC* 

♦_♦•*_♦-*-♦-♦-*-* 

♦ * 

♦ BEAD TAPE * 

♦ * 
4c**3»«4<*4t*4c«4c**«4c4t 



«««4:*E4** ******** 

* INCBEHENT * 

* PROCEDURE * 

* LIST POINTER *. 

* BY 4 * 

* ♦ 



4c«4i*4>C 5*** ******* 

* SAVE * 

* VOLOME ♦ 

* SERIAL * 

* NUMEEB * 

* ♦ 
itiH,*fi*1f*iH^t'******* 



4c«4<**t) 5*** ******* 

* INCREMENT * 

* PROCEDDBE * 

* LIST POINTER ♦ 

* (PRCCPTB; * 

* BY 4 * 

*4r4>***4i* ********* 
**** 



NXTPHS , X 

Jtc^-E^******* 

*TURN PHASE * 
*INtICATOB SH 
* ON AND SETOP 
* TO TTTCB 
* ft 



*4>*4i:5********* 

* SVC 2 * 

* FETCH * 

* StBCCPTI * 
*^,i^*if ********** 



**H4******* 

* 4c 

TURN ON 

TAPEHARK 

SNITCH 



* E5 * 

* * 
**** 



**** 

* * 

* A3 * 

* ♦ 
♦ *♦♦ 
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Chart RC. $$BCCPT1: Subroutines for Open DTFCP and DTFEI Input Tape (2 of 2) 



♦ $$B0CPT1 * 

♦ INPDT/ODTPDT ♦ 

♦ SOBROOTINE ♦ 



ilHt'***B }********** 



)0i«4i4.«««4>4.***4,4,4(«4, 



:tiiHt,Q'\if*********** 



* SJBOCFTI * 

* TAPE IREIl * 

* SUESODTINE * 



EXITLAB 

ittit:23* ****** 

* TDEN CB * 

♦ DIP TAPE 
* LABILEE 

♦ SWITCH 



««««4i4<)M|<:(i«« 



* $«B0CET1 ♦ 

* LABEL * 

* SDBHOUTINE ♦ 



* ♦ 
♦TDEN OFE DTE 

* TAPE LABELED 
♦ SWITCH 

* * 



i^i^1t,*i^**#*^^i^*:l^int,^nl, 



3|i3|i*4t««i|i**««4iJti]|c:(t«)K 



. * CHANNEL 
END 
♦.OCCORHED 



*««**]^2***al"t<««««« 



)|i«4<«4<*44<**4««**«)0' 



F1 ♦. 
.* WAS *. 
.* PEEVIOOS *. NO 
. I/O A HEAD .*..X 
*.OPEHATICN.* 



« * 

* TRANSLATE * 

* LABEL TO * 

* EBCDIC * 

* » 



* BETOBN 7IA * 

* EEGISTER 9 ♦ 

* * 



MOEE 

FILES TC 

.BE OPENED. 



*!Dl^2******* 

* TORN OFF * 
OPEN ACTIVE 

INDICATOR 
IN DTP 

♦ * 



* SVC 2 ♦ 

* FETCH * 

* $$EOPIN * 
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Chart RE. $$B0CPT2: Subroutines for Cpen DTFCP and DTFEI Output Tape (1 cf 2) 



****A1 ****♦♦*♦♦ 

♦ $$B0CPT2 ♦ 

♦ SEARCH LABEL ♦ 

♦ SOBBODTIME * 



♦ *♦♦ 

* * 

* B2 * 

* ♦ 



* * 

* SWITCH * 

* I/O AREA ♦ 

* ADDRESSES * 

* * 
If**************** 



*****-Q-\ ********** 

* CHANGE ♦ 

* READ CCS ♦ 

* TO POINT TO * 

* FORTRAN I/O * 

* AREA ♦ 
***************** 



DOREAD 

*****■£'[********** 

*RDEISK RE* 

♦ -♦^♦_. ♦«.*_.*_♦_*«* 

* SEARCH LABEL ♦ 

* CYLINDER ♦ 

♦ TRACK ♦ 
***************** 



*****Q2********** 

* SET SWITCH ♦ 

* TO INDICATE ♦ 

* OKLABELED * 

* FORTRAN ♦ 

* FILE ♦ 
***************** 



****j^2********* 

* $$E0CPT2 * 

* SENSE * 

* SCBRCDTINI ♦ 
*******it******* 



SENSE X 

*****-Q2** ******** 
*I0 RF* 

* _♦_♦-,*_»_♦_♦_♦_♦ 

* REiIND * 

* TAPE * 



****f^^********* 

♦ t$B0CFT2 * 

♦ LABEL ♦ 

♦ SOEROOTIHE * 

*************** 



**** 

* * 

* BU *.X 

* * 
**** 

EXITNLB X 

**BH******* 
* TORN OFF * 

♦ DTP TAPE ♦ 
♦LABELED SWITCH 

♦ BYTE 44 



*** 



I************* 



(X«01') * 

(*****f)i** 



****12********* 

* BETURN * 

* VIA REG 8 * 

* * 
*************** 



*****22********** 
♦HISG4184D RF* 

* _♦_♦•♦_*«♦-.*_♦«♦ 

* ISSUE FILE *X. 

* PROTECT HSG * 

* ai84D * 

***************** 



*****Q2********** 

* SET CCW * 

* CCHHANE CCEE ♦ 

* FOR SENSE * 

* CCHHANE * 

* * 
***************** 



*****ji2********** 
♦IC RF* 

♦_♦_♦_*_♦_♦_♦_*_♦ 

* PERFORH * 

* SENSE * 

* * 
***************** 



IS 
TAPE FILE 
.PBCTECTEE. 



**** 



****cn********* 

* SVC 2 * 

* FETCH * 

* $$BOPEN * 
*************** 



****f^K********* 

* 1tE0CPT2 ♦ 

* TAPE lAEEL * 

* SUBRCDTINE * 
*************** 



WAS 
ASCII 

. SPECTFIEE. 



WAS A 
TAPEHARK 

. READ 



*****^c^*** ******* 

* * 

* SET CC« * 

* CCHHANE CCEE * 

* TO REWIND ♦ 

* ♦ 
***************** 



*****fiS********** 
*TC RE* 

*-*-♦-.*-♦-:»-*«»-♦ 

* REWIND * 

* TAPE * 

* * 
***************** 



***** 
*5D * 
♦ G1* 



* POINT 10 * 
*STANEARD LABEL * 

* TRACK * 

* ♦ 
***************** 



*****^-] ********** 

* HOVE STANEARD ♦ 

* LABEL TRACK * 

* NUMBER TO * 

* SBEK/SEAPCH ♦ 

* FIELD * 
***************** 



*****j'\ ********** 

♦ set indicator * 

* Ilsttrk: to * 

♦ accept record * 

* anywhere in * 
*ste. lbl. area * 

***************** 



*****Y^'\********** 

♦HDEISK RF* 
*^*~*-*-*-*-*-*-* 

*SEARCH STANDARD* 

* LABEL TRACK * 

* * 
***************** 



LABFND 

*****Q2********** 

* INCHEHENT * 

* PROCEDURE * 

* LIST POINTER * 

* EY 8 * 

***************** 



****Yi2********* 

* RETURN VIA * 

* REGISTER 8 * 

* ♦ 
*************** 



*****Q2********** 

* INCEEHENT * 

* PROCEDURE * 

* LIST POINTER * 

* BY 2 ♦ 

* * 
***************** 



*****-pH********** 
*I0 . RV* 
*-*-*-*-*^*^*^*^* 

* SENSE * 

* HODE ♦ 

* * 
***************** 



YES .* 
X....*. UNLABELED 
*. TAPE 



*****j 2* ********* 
*IC RE* 

* READ TC * 

* SET HCDE * 

* ♦ 
*********n******* 



* pa ♦ 

* ♦ 



1600 
BPI 

TAPE 



800 
TAPE 



**jtj******* 

* * 

* SET ♦ 
* NEWVOL SWITCH * 

* ON * 

* * 
*********** 






*««*KU ********* 

* RETURN TO * 
*CALLING ROUTINE* 

* * 
*************** 



**** 

* * 

* B2 * 

* ♦ 
**** 
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Chart RG. $$B0CPT3: Open DIFCP and DTFDI Labeled Output Tape 



♦ $$B0CPT3 ♦ 

* * 



♦ ♦ SVC 33 * ♦ 

♦ ♦ LOAD ♦ * 

♦ * COHHBEG * ♦ 

♦ * * ♦ 



♦ PIND ASt * 

* SAVE ADDBESS * 

♦ 0? TBAHSLATE * 

* TABLE * 

4> * 



* * 

* RELOCATE ♦ 

* CCBS AND * 

* ecu ♦ 

* ♦ 



♦ SET HODE * 
FOB 7- OB 

9-TBACK AND 
DENSITY 

* * 



PROCESS X 

* INITIALIZE * 

* TO BEAD ♦ 
♦DISK TO SEABCH * 

* FOB TLB! * 

* INPOEHATIOH * 





4i«*4iB<l*4<****<('*')' 




* $«B0CPT3 * 




♦ SET PHASE ♦ 




* SDBBOOTIHE ♦ 


**** 




« * 




* C3 ♦ 






* * 






**** 


X 




i 

FETCHIT .*. 


TSETPHS X 


C3 *. 


iK****^^********** 


.* IS ♦. 


* INITIALIZE * 


.*THIS INTBI *. NO 
*.FBCH JiECCPT2.*.... 


.: : '«,is?i?^" : 


*. .♦ 


* FOB RITBY * 





G1 ♦. 








.* IS ♦. 








.♦ THIS A *. 


NO 




♦ 


•.fiiSSJpSI"?.-* 














*. .* 








*. .* 




X 




* TES 




**** 






* 


* 






♦ 


C3 ♦ 






♦ 


* 




X 








**I]1 *««««*« 








♦ BESET * 








* MESSAGE * 






* 


. ii!??g' .* 







♦RESET $$E0CPT2 ♦ 

♦ ENTBY ♦ 

♦ INDICATOR ♦ 

♦ * 



♦ ADD PEOCEDORE ♦ 
♦LIST PCINTEB TO^ 

♦ STARTING AEDR ♦ 

♦ OF PBOCEDDBE ♦ 

♦ LIST TAltl ♦ 
^^■♦♦♦♦♦♦♦♦♦♦♦♦♦♦^ 



♦ ♦EXEC SDEBTN^ ♦ 

♦ ♦IN BECDIBED^ ♦ 

♦ ♦ PBOCfEOBE ♦ ♦ 



**««*«4>4'*4>*4>**4<*4! 



**«**«*«* «*4>*4<4>4t* 



♦ SVC 2 ♦ 

♦ FETCH ♦ 

♦ $!6BOCPT2 ♦ 



♦ G3 ♦.X 



PH0CR0N2 

♦ POINT 10 ♦ 

♦NEXT SECDESTIAL^ 

...♦ SDEROOTINE ♦ 



4>***«*4<***4i 



J1 ♦. 

.♦ IS AN ♦. 

.♦ ADDRESS ♦. NO 
♦.IN THE REIORN.^.... 
♦. LINKAGE .♦ 
♦. REG .♦ 

♦ - -♦ X 



lES 



♦ G3 ♦ 



♦ BEINTEB VIA ♦ 

♦ REG AT ♦ 
♦SPECIFIED ADDR ♦ 
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Chart RJ. $$BCCPT3: Subroutines for Open DTFCP and DTFDI Labeled Output Tape (2 of 2) 



* JSBOCPTOa ♦ 

* BDILD HEAtIR * 

* SOBROOTINE * 

]» 3)1 4 « * 3» 4 4 * * :|i * # 4c Hi 



HDBELD 

* INIT. DEFADLT ♦ 

* CAPTIONS FOE * 
*VOL. SEQ., FILE* 

* SERIAL, GEN. * 
*ANE 7ERSICN NOS* 



CHECK X 

* CHECK THE * 
♦VOL. SEQ. , FILE* 

* SERIAL, AND * 

* GEN. NOS FOB * 

* ELANKS * 



* SET FILE * 

* AND VERSION * 

* NOHBER * 

* ♦ 



EXPEATE 

* SET CREATION ♦ 

* DATE ANE * 

* RETENTION ♦ 

* PERIOD * 

* * 



* CONVERT DATE * 

* IF IT IS NOT * 

* ABSOLUTE * 

* * 

4i4<*****4t4>*4t4<«***4t 



BOILDLBL 

44>**>»G1 ********** 

* MOVE DTF * 

* NAME INTO * 

* TLBL CARE * 

* IMAGE * 

* IF BEQOIRED * 
4i*4c>l<4c*4>9tc«4c*««4<4'4<* 



SKIP 

44<*«*H1 ********** 

* MOVE TLEL * 

* INFO INTO * 

* EOILE ARIA * 

* FOR RDB 1 * 

* LABEL * 



* HOVE 'HDRI' * 

* TO FIRST H * 

* BYTES OF * 

* HDB1 LABEL * 

* ♦ 



****A2********* 

* $tBOCPT03 * 

* NRITE HEADER * 

* SOEROOTINE * 



NOVOLO 

4i«**4<B2********** 
♦10 RJ* 

♦-♦-♦-*-*-♦_♦-*-♦ 

* * 

* BEHIND TAPE * 

* * 
4.* 4* 4>* 4 4**4***41** 



**4>**C2* ********* 

* * 

* SET DP * 

* MESSAGE * 

* miOA * 

* * 

****** 4***4****** 



*****D2********** 
*MSGWFITE BJ* 

♦ -*-.♦-*-*-.*_*_♦_♦ 

♦ SET DP BETDEN * 

* ADEBESS AND * 

* ISSDE MESSAGE * 
****** *****4>***** 

**** 



**** 
HDHWBITE X 

*****£ 2********** 

* * 
*SET CC\I COMMAND* 
*CODE FOR WRITE * 

* OPEBATION * 

* * 

********:» If 4****** 



41**** F2*** ******* 
*I0 RJ* 

*_*-.*_*-.*«*_*_*_♦ 

* * 

* HBITl * 

* * 

4i4<3|.***44i«*:»4i4>«i|<** 



****G2********* 

* RETDBN VIA * 

* REGISTER 8 * 

* * 

4(4c** *********** 



4c4c**H2* ******** 

* $$EOCPT03 * 

* DDMMY HEADER * 

* SDEBODTINE * 
4c 4.«* *********** 



**j2********** 

* * 

* MOVE BINARY * 
.* ZEROS INTO * 

*HBH1 LABEt AREA* 

* * 

*4> *************** 



****]13 ********* 

* $$EOCFT03 * 

* INIDT/CDTEDT * 

* SUERODTINE * 
***t********4c** 



****4B3 ********** 
♦TRASCII RJ* 
*-*-*. 4- 4- *>*>*-* 

* ♦ 
♦TRANSLATE TABLE* 

* * 
***************** 



***4'*c3********** 

* * 

* PDT TAPE * 

* CCB ADDRESS * 

* IN REGISTER 1 * 

* * 
***************** 



***Q3**********4i4c 



*****4c****: 



****4i£3*4**4.*4i*** 

* * * ♦ 

* ♦ SVC 7 * * 

* * HAIT * *. 

* ♦IF REQUIRED* * 

* * * * 

4t4'** ************* 



****A4********* 

* ^"SBOCPTOB * 

* TRANSLATE * 

* SUBROUTINE * 
4<** ************ 



.* PREVIOUS *. NO 
*. I/O A BEAD .*... 
*. HRITE .♦ 



**4*B5********* 

* BETUBN TC ♦ 

* AEDRESS IN * 

* BE6ISTFB 12+8 * 
************* 4'* 



4t***C5*******4* 

* BETUBN TC * 

* ADDRESS IN * 

* BE6ISTEB 12+5 * 
*************** 



**4i**Q ()********** 



***************** 



****E4******** 

* BETUEN TO 

* AEDBESS IN 

* REGISTER 12 
***4<********** 



«***G I) ********* 

* $$BOCPT0 3 * 
*MESSAGE HRITEB * 

* SUEBOUTINE * 

4C4C************* 



* SET UP * 

* TO CALL * 

* MESSAGE * 

* * 
*****4<*** ******** 



****ja** ******* 

* SVG 2 * 

* FETCH * 
*MESSAGE liBITER * 

**4i************ 



****G5********* 

* ttB0CPTC3 * 

* MESSAGE * 

* SUBROUTINE * 
**44***444***** 



* SET UP * 
.* MESSAGE * 

* «t18«»D ♦ 

* * 
********** ******4i 
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Chart RL^ $$BOCPTU! Subroutines for Cpen DTFCF and DTFEI Labeled Input Tape (1 of 2) 



* $$BOCPTU ♦ 

♦VOLOHE LBL SKIP* 

* SOEROOTINE * 



♦ SET ecu * 

♦ COMHAND CODE * 

♦ FOB READ * 

4> * 



iti*iti* 1^2* ******** 

* SJBOCPTU * 

* HESSAGE ai12A * 

* SOBBODTIMB * 



V0LSKIP1 

^^*n,**c^********** 
♦10 RB* 

* * 

* READ * 

* * 



D1 *. 

.♦ ♦. 

.♦ EBCDIC OR * 

.ASCII VOLOHB 

♦. LABEL .* 



El ♦. 
.♦ IS ♦. 
* THIS A 

STANDARD 
*. HDHI 
*. LABEL.* 
*. .♦ 



NS612A X 

*4>4t**B2********** 

* * 

* SET OP ♦ 

♦ MESSAGE * 

♦ «H12A ♦ 

* * 

♦ Hi******* 4 ******* 



**4<*4>C2********** 
*I1SGHEITE RL* 

* SET DP IGNORE ♦ 
*HET05N ADDRESS * 

* AND ISSUE HSG * 



* HOVE VCIDHE * 

* SERIAL NDHBER * 

* INTO FILE * 

* SERIAL NDHEER * 

* CN TPLAB CARD * 



* fSBCCPm ♦ 
*VOL. SERIAL NO.* 

* SUEROOTINI * 



IS THIS 

A VCL1 

LABEL 



««**A 4 ********* 

* tSEOCPTi* * 

* MESSAGE mm * 

* SOBROOIINE * 



* SET DP * 

* MESSAGE *. 

* milA * 

* * 



C3 *. 

.*VOLDHE *. 

NO .*SERIAL NO. ♦. 

...*.EQDAI TO FILE.* 

*. SERIAL ,* 

*. NC. .♦ 

*. .* 



* t$B0CPT4 * 

* WRITE MESSAGE * 

* SDBRODTINE * 



* t<B0CPT« * 

* RESTORE * 

* SDERCDTINE * 



♦ ♦** 
RESTORE X 

*4>«4<4>65*** ****** 



* RESTOEE 
.* PROCEDORE 

* POINTER 

♦ 



NO 



X 

*HH * 
* B3* 



PB0CRDN2 

4i4>«)|>4>E2* ********* 

* PCINT TO * 
*NEXT SEQUENTIAL* 

* SDEBOUTINE * 



***** 
*RK * 
* Ht* 



RETURN TO * 
CALLING * 
ROUTINE * 

* 
************** 



****B4** ******* 

* SVC 2 * 

* FETCH * 

* $$B0CPM1 * 
*«**««*«******* 



****C5***»***** 

* ttECCPTa * 

* SPACE EIEE * 

* SOEROOTINE ♦ 
*************** 



*SET CCil CCHMANt* 

* CODE FCR * 
*T'CFNABE SPACE F* 

* * 

«*4i:»**4[4t*4'***»*** 



*4(4<**B 5*** ******* 

*IC EF* 

*_*-♦-.♦-*-»_*-.♦_♦ 

* FORIARB * 

* SPACE TItl * 

* * 
4<**** ****** ****** 



***«f5«******** 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
4>******** ****** 



****Ga********* 

* $$BOCETa * 

* MESSAGE ai15A * 

* SUBROUTINE * 
*4i************* 



4c***<;5***4***** 

* tSEOCPia * 

* MESSAGE 4116A * 

* SUBROUTINE * 
:»*4«*********** 



* SET UP * 

* MESSAGE * 

* *H15A * 

* * 



* SET UP * 

* MESSAGE * 

* ai16A * 

* * 
***************** 



****J1 ********* 

* $tB0CPT4 * 

* HESSAGE m32D * 

* SOEROOTINE * 
ii************** 



* SET OP * 

* MESSAGE * 

* 4132B * 

* * 



****J2********* 

* flBOCPTa * 

* HESSAGE 11330 * 

* SUBROUTINE * 
****44*««4**«4i* 



* SET DP 

* MESSAGE 

* H133D 
* 
**************** 



****J3********* 

* SfEOCFTiJ * 

* HESSAGE DHUA * 

* SUBROUTINE * 

****4*******4c** 



* SET UP * 

* HESSAGE * 

* mUA * 

* * 

*]|i*gti4>4 *********** 



***4e4<J1)****«*«*** 

* SET CCW * 

* COMMAND CODE * 

* TO REWIND ♦ 

* AND UNLOAD * 

* * 

*4<*«*4«**4**4>|c«** 



*****K4********** 
*I0 RM* 

«.*_*-*-*-. *-*-*. 4 

* RENIND * 

* UNLOAD * 

* * 

****4**4i«**44>4*4* 



.X.X.. 
X 

**** 
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Chart SA. $$BCCPT1: Close CTFCP and DTFDI Tape Files (1 of 2) 



* ♦ 

* A2 * 



* ♦ 

* $$BCCPT1 * 

* ♦ 



♦ ESTABLISH AND * 

♦ INITIALIZE ♦ 

♦ REGISTEES ♦ 

♦ ♦ 



OPENINIT 

«:|c4c**C1 ********** 

* MOVE DENSITY * 

* BITS FHOH PUB * 

* ENTRY TO SET * 

* MODE AND * 
♦PEKMANENT ILAG * 



« :(c :(e 4c * C 1 « 4c :)c * :)< * « 4c oti 4t 

* ♦ 

*MOVE ADDRESS OP* 

* TLBL I/O AREA ♦ 

* TO READ CCH * 

* * 

*:lt:1f ************** 



DETEEM 

*****2-\********** 

* INCREMENT * 
♦PRCCEDDRE LIST * 

* POINTER BY 2 * 

* IF REWIND * 

* IS SPECIFIED * 

4c*4: 4<4c ^^^i^^c* 4<4<** ^c^i 



DETPATH 

4c4c*4c*Fl ********** 

* INCREMENT * 
*PROCEDORE LIST * 

* POINTER BY t» * 

* IF STANDARD * 

* LABELED TAPE * 
***************** 



ADJINPOT X 

*****G1 ********** 

* INCREMENT * 
♦PROCEDORE LIST * 

* POINTER EY 16 * 

* IE INPUT * 

* FILE * 

*i^****1,***^iiH!f***ill, 



4, 4<**4<H1 ********** 

* SET CCW OP * 

* CODE FOR READ * 

* OPERATION * 

* IF EEQDIEID * 
4c 4c 
4c 4= 4c * :(c 4> 4 4( 4i 4c 4c 4c 4t 4c 4c 4c 4c 



4c*4= 4c 4c J 14c 4c 4= 4c 4c 4c 4c 4c 4= 4c 
*I0 SB* 

4c_4c-4c-4c-*-4c-4c-4:-4c 

* READ TAPE * 

* IF REQUIRED * 
4c 4c 
4, 4c 4c 4< 4c 4> 4c 4c 4c 4c 4c 4c 4c 4c 4: 4c 4c 



4c4c*#4cKl 4c****4c4c4c4c4c 
*BKSP SA* 

4t_4c-4c-4c-4c-4c-4c-4c-4c 

* EfiCKSPACE * 

* RECORD * 

* IF REQUIRED * 
44:4>4 4>4'4c4**>)':»*4c«4c4c 



* INCREMENT ♦ 
*PR0CEDURE LIST * 

* POINTER EY 8 * 

4c 4c 

4i4c4c*4ci|4c4c4c4c44c4c4c4c4c4' 



PEOCPDN 

4c 4c 4c 4c 4cB 2********** 

* ADD PROCEDURE * 

* LIST POINTER * 

* TO START ♦ 

* CF PROCEDURE * 

* TABLE * 

4c 4c :» 4c 4c :» :» 4< 4c 4< 4 4c 4c 4c 4c 4c 4c 



PR0CHUN1 

4c 4c 4c 4c 4cC 2** ******** 

* ♦ EXECUTE * * 

* *SUER0UTINE * * 

* ♦IN RSQUIRED* ♦ 
-" ^ PBCCEDURE • ■ 



4c 4c 



* ♦ 



4c 4c 4 4i 4c 4 ** * itc :» 4c * ♦ 4c4c 4c 



PB0CEUN2 

4c4c4c4c4cD2********** 

* POINT TO * 
*NEXT SEQUENTIAL* 

* SUEROUTINE *. 

* IN REQUIRED ♦ 

* PROCEDURE * 

**i^*i,:t ****:#****** 



4c 4c 4c 4cF2*** ****** 

* SJBCCPTI * 

* READ LABELS * 

* SUBROUTINE * 

4c 4< 4c 4c 4 4< 4c 4c « 44c 4c 4c 4c 4: 



SET CCW OP * 

CODE TO READ * 

TAPE * 

4c 
4c :» 4c 4c 4 ♦♦ 4c 4c 4c 4c 4c 4c 4c 4c 4c 



* CLEAR READ * 

* I/C AREA, ♦ 

* LABAB * 
4c 4c 
4c 4c * 4c 4c 4^ 4c 4c 4c 4c 4< 4c 4c 4c 4c 4c 4c 



4c_4c-4c-4c-4c-4c-4c- 

4c 

* READ TAPE 

4c 

4c 4c 4c 4c 4c :» 4 4c 4c 4c 4c 4c 4c 4c 



4c4c4c*K2********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
4c 4c 4c 4c 4c 4c 4c 4c 4' 4> 4c * 4c * 4c 



****j^J********* 

* tSBCCPTi * 

* BUILD HEADER * 

* SUERCUTINE * 
4c4ci»4c*4c4c4c4>**4c«*4c 



EOFBLDWT 

4c4c4>4c«B3********** 

* INIT. DEFAULT * 

* CAPTIONS FOB * 
*VCL.SEC., FILE * 

* SERIAL, GEN. * 
*AND VERSION NOS* 
4c4c4t*4c*ic*4<4c4c4c4c4c4c4c4c 



CHECK 

4c4c4c4c*C3********** 
*CHECK TEE VOL. * 

♦ SEQ. AND FILE * 
*SERIAL NUMBERS * 

* FOE BLANKS * 
4c 4c 
4c4c4c4c4c4c4cXc4<3|c***>tc4c*4c 



* SET FILE * 

* SERIAL AND * 
*VIHSICN NUHEER * 
4c 4c 
4c4c4c**4c44c:»4'*«*4c*3tc4c 



4c 4c 4c 4c*E 3 ********** 

* SET CREATION * 

* DATE AND * 

* RETENTICN * 

* PERIOD * 



4<4c4> 



c4c4>* 



k4c4<4c4c4<4c4c4c4c 



* CCNVEET DATE * 

* IF IT IS NOT ♦ 

* ABSOLUTE * 

4c 4c 

4c4c4c4c4<4<4c4c4c«**4c4c4c4c4c 



BDILDLBL 

4:4c4c4<4cG3********** 

* HOVE DTF NAME * 

* IHTO TLEL * 

* CARD IMAGE * 

* IF EECUIFED * 

* 4c 
4c 4c 4 4 4* 4 4 4 4 4' * 44c 4c 4c 4> 



SKIP 

4c4c4c4c4:H3********** 

* HCVE TLEL * 

* INFOEHATICN * 
*INTO BUILD AREA* 

* FCE ECF1 * 

* TRAILER LABEL * 
4c 4c 4> 4c * 4"l< * * ♦ 4' ♦ >» ♦ ♦ ♦ 4c 



MOVESER X 

4c 4c 4c 4c 4c J 3 4c 4> 4c 4c 4c 4c 4c 4c 4c 4c 

* MOVE FILE * 

* SERIAL NUHEER * 

* TO E0F1 * 

* TRAILER LABEL * 

* AREA * 
4c4c*4'=(c*****5»**4c4c4c4c 



4c4c44c4cK3********** 

* HCVE 'ECFT * 

* TO FIRST a * 

* BYTES OF E0F1 *. 

* TRAILER LAEEL * 

4c 4c 

4c4c44c*4'44'44'4>***4c4c4c 



4c4c4c4cA£»********* 

* StBCCFTI * 

* RIAD LABEL ♦ 

* SUBROUTINE * 
4c 4c 4c 4c 4c 4c 4c « 4c * 4c* 4c 4c 4c 



RDTPLAB 

4c 4c 4c 4c 4cBa** ******** 

*RDDISK . SB* 
♦_*_*_*_♦_♦_*_*_* 

* SEARCH SYSRES ♦ 
*LABEL CYLINDER * 

* TRACK * 
***************** 



*****CI|********** 

* MOVE STANDARD * 

* LABEL TRACK * 

* NUMBER TO * 

* SEEK/SEARCH ♦ 

* FIELD ♦ 
***************** 



*****Q(4*!|C ******** 

*RDDISK SB* 
*_♦_*_*«*,*_*_*_* 

*SEARCH STANDARD* 

* TRACK ♦ 

* * 
***************** 



****A5********* 

* ItBCCPTi ♦ 

* BACKSPACE * 

* SUBROUTINE * 
*************** 



*****t; 5 ********** 

*I0 SB* 

*_*_♦-*_*-.*-*«♦_* 

* BACKSPACE * 

* RECORD * 

* * 
***************** 



* J5 * 

* * 

**** 



****l>5********* 

* ItBCCPTI ♦ 

* BEWINE * 

* SUBROUTINE * 
*************** 



. *. 


TR 


EWIND X 


Et| *. 




*****^5*** ******* 


|c *. 




*T0 SB* 


CORRECT *, 


YES 


*.*.*_*^*. *.*.*.* 


TLBL 


* X,.. 


.* ♦ 


FOUND .* 




* TimiNB TAPE * 


I". . * 




* ♦ 


*. .* 


X 


4<*****]^**« ******* 


* NO 


**** 

* * 

* 05 * 

* * 
**** 





ERROR 

*****p 4** ******** 

*PUT ADDRESS OT * 

* NO LABEL INFO * 

* MESSAGE, ♦ 

* U881I, * 

* IN HESSREG * 
***************** 



****GH********* 

* SVC 2 * 

* FETCH * 

* «$B0MSG1 * 
*************** 



X* WRITE E0F1 * 

* TRAILER * 

* LABEL * 
***************** 



****K4 ********* 

* RETURN TO * 

* CALLING * 

* ROUTINE * 
*************** 



****G5*** ****** 

* tSBCCPTI * 

* TAPE HARK * 

* SUBROUTINE * 
*************** 



TMWRITE 

*****T) 5*** ******* 

*I0 SE* 

*_ *_ *- *_*_*_ *_ *_ * 

* WRITE A * 

* TAPEMABK * 

* * 
***************** 

**** 

* * 

* as *.x 

* * 
**♦* 



****j5*** ****** 

* RT-ITURN TO * 

* CALLING ♦ 

* ROUTINE * 
*************** 



**** 

* * 

* A2 * 
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Chart SC, $$BCICSP! Punch File Close (1 of 2) 





*♦** 

* * 

* A2 * 

* * 






* 
tSBCLOSP ♦ 

♦ 


DISK3 

* * 

* SIOBE CCB *X.. 

4> * 


*SD * 

* 



♦ FIND CORHICT ♦ 

* FOB POI ♦ 

♦ LOGICAL DMIT ♦ 

* * 



CI 

OB 2596 



4i«*4i«««9|i***4>4<4i4>«« 



♦ ♦♦* 
BETOBM X 

*1f1fi)li^'Q2********** 

* ♦ 

* GET POISTIB ♦ 

* TO FILES TO *X 

* BI CLOSED ♦ 

* ♦ 



BEFEBIHCIS 
IC SCE2: 
SDB1, SrE3 



***4> 

* * 

*♦** 

X 
SEPT .*. 

.* 1018 *. NO 
*. *ITH TIO . * 


EXITBCB 

*4>|^5***«**4> 

♦ BISBT BBQ. 


♦ .I/O ABBAS.* X *^ ABB COOIIT 
**, .** * «»»♦♦♦♦♦♦♦♦ 
* TBS 

* * 

X . ♦ B2 » 
*****B4*****4"I'*** . * * 
4> * * * . **** 

:: III,' :: ; 


♦ ♦IF BBQBIBED* ♦ 


. 



*«***4i**«*4>*4>***4i 



ABOTHEE 

rTF TC 

CLOSE 



4> * 

♦ J3 ♦ 

* * 

**4<4t 



DTFCD 
PONCH 

FILE 



PAPEB 

TAPE 

FILE 



**♦♦ 

♦ * 

♦ B2 ♦ 

♦ * 



X 

♦ SD ♦ 

♦ A1^ 



♦ GET HAHE FCB ♦ 
.X* CLCSE HCNITOR ♦ 

♦ JtBCLCSI ♦ 

♦ * 



**4>)|>*]}2****4>*«4i*4< 

♦ BESET CLCSE ♦ 

♦ ACTION ♦ 

♦ INDICATOE III * 
♦CCHHBBICATICBS ♦ 

♦ BEGIOH ♦ 



4i*««£2* ♦♦♦♦♦♦♦♦ 

♦ SVC 2 ♦ 

♦ EETCH * 

♦ «$BCLCSE * 
**«*44>*4c******* 



CP2520 

*«***; 2*^* 44***** 
♦BTDEVID SD* 
*-*-*_*-*-*-*,.*-* 

...X+ BAIT FCB * 

* DEVICE END * 

* * 
***************** 



*****Q1 ********** 

*BTDEVED SD* 
*-*.*_*-*_*.*_*.* 

* BAIT FOB ♦ 

* DEVICE END ♦ 

* ♦ 
***************** 



**** 
*SD * 
* E5 *.X 



X 

***** 
*SD * 
* A5* 



PCHBLANR X 

*****j1 ********** 

♦STABTIO SD^ 
*-*.*-*.*-*-*_*.* 

♦ PONCH ♦ 

♦ BLANK CABD ♦ 

♦ * 
***************** 



*****!] 2*** ******* 
♦EETBYHSG SD* 
*-*-*.*.*.*-*-*_.* 

* ISSUE BITBY * 

* HESSAGE * 

* aoooi * 

***************** 



* TIS 

rBEPCHCP2 
X 

***** 

*SD * 

* G5* 

* * 



**** 

* * 

* A2 * 

* * 
**♦* 



***************** 



*****K 2** ******** 
*STABTIO SD* 
*.*-*_*.*_*-*_*_* 

* *. 

* PUNCH CABD * 

* * 
***************** 



**** 

* * 

* J3 * 

* * 
**** 



.♦ CLOSE 
. IN PROCESS 

♦ . 



DU ♦. 

* 

BETBT 



*****St)*********: 
* 

♦ STOBB 

♦ BEN 

♦ CCB CCDNT 
* 
**************** 



PT1 i 

*****p(l*^******** 

♦ * 

♦ INCBBHENT ♦ 
♦lOABlA ACDBESS * 

♦ BI ONE * 

♦ OB TBO * 
***************** 



PT2 i 

*****G4*********: 
♦ 

♦ STOBE NEB 

♦ lOABIAS 

♦ ADDRESS 
* 
**************** 



PTSIO X 

*****!] 1|********** 

♦STABTIO SD* 
*-*.*-*_*.*.*.*.* 

...* HBITE * 

♦ BENAINING * 

♦ BICOBD ♦ 
***************** 



4<**J4************ 
EXECUTE 
♦ BEQUIRED ♦ 
INPOT/OUTPUT 
OPEBATICN * 



C5 ♦. 
.* ♦, 
. ♦ ♦ 

.X^. IBITE EBBOR 



*********** 



****S5*«*4**«*« 

* SVC 2 * 

* ^^FETCB ♦ 

* $$EIBP1E ♦ 
*************** 



***************** 



*****K3********** 



***************** 
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Chart SE. $$BCCPM1 and $$E0CPM2: DTFCP/DTFDI Message ifcvriters 



♦ $$BOCPni * 

♦ «JB0CPfl2 * 

♦ * 



* INITIALIZE * 

* ALL BEQOIBID * 

* AREAS * 

* * 



SKIPO 

* GIT FIELD * 

* LENGTH AND ♦ 

* DATA ADDRESS * 

* INTO WRITE * 

* LABEL ecu * 



* NO-OP WHITE * 

* BLANKS CCN * 

* IF HEQDIBED ♦ 

* * 



LO0P2 .*. 




CCNTINDE .*. 


.*. 


A2 ♦. 




A3 *. 


A4 *. 


. ♦ ♦. 




.* *. 


.* *. 


.* RESPONSE ♦ 


NO 


.♦ RESECFSE ♦. NO 


.* RESPONSE *. 


*. VOL. SERIAL 


*. .. . 


....X*. CANCEL .*.... 


. . . . X*. RETRY . * 


*. liDMBER .* 




• ••«A^« V.Ai^V.'JUA. •■•••• 




*. .* 




* *. . ** 


*♦. . ** 


*. .♦ 




♦. .* 


*. .* 


* YES 




* * 

..1. K, . 


* YES 


X 




4*4* 


X 


. *. 






LEGAL3 .*. 


B2 *. 




4*4<44B3****4**4>** 


B4 *. 


.♦ *. 




* SET PRCPIB * 


.* *. 


.♦VOL. SERIAL*, 


YES 


♦ V LOES IN * 


.* RETRY *. 


*. NO. LEGAL 


*. .. . 


. ...X* V0L1 LABEL * 


*. LEGAL .* 


♦ .RESPONSE ,♦ 




* AND IN * 


*. RESPONSE .* 


*. .♦ 




* PDB2 TABLE * 


*. .* 


♦ . .* 




44>44>l<*44<44t4>4c4*444 


*. .* 


* HO 






* YES 


♦ *** 






♦**♦ 


* * . 






* * . 


* C2 *.X. 






* ca *.x. 


♦ * 




Ix 


♦ * . 


♦ ♦♦* 




**** , 


NOTLEGAL X 




DETERMN X 


STARTOVR X 


4i«**4>C2***4****** 


^♦^♦♦cs ********** 


4i4'4c**C4** ******** 


* 




* GET NAME AND * 


*CLEAR RET. REG * 


* HOVE » INVALID 




*RETURN AEDBESS * 


* TO INDICATE * 


* RESPCNSE' TO 




*0F PHASE TO BE * 


* PHASE TO BE * 


* MESSAGE AREA 




* FETCHED * 


* FETCHED START * 


* 




* * 


*FROH BEGINNING * 









*444D3444444444 

* SVC 2 * 

* FETCH NEXT * 

* PHASE * 

4444*4444*4444* 



* SET INDICATOR * 
.X* FOR AUTOMATIC * 

*JOB TERMINATION* 

* 4 
44 4**4 4*4 4 4*4***4 



4i****f 1********4* 
*NRITE SE* 

4-*-*-*-*-*-.*_*-* 

* NRITE MESSAGE * 

* ON SYSLCG * 

* * 
**4*4'****** 44***4 



AGAIN X 

**44*G14***4***** 
*READ SE* 

*-4-*-4-.4-*-*-*-* 

* READ OPERATOR * 

* RESPONSE * 

* * 
444****4********* 



44'**f 3*44****** 

* $$BCCPB1/2 * 

* NBITE * 

* SDBBCUTINE * 
444444444*4444* 



* GET AEDBESS * 

* CF NEITE * 

* CCN'S ♦ 

* ♦ 
4***44*********** 



*4**V ()********* 

* t$B0CPHl/2 * 

* REAL ♦ 

* SDBROOTINE * 
*4**44********* 



* GET ADDRESS * 

* OF READ * 

* CCW'S * 

* 4 
********* 4******* 



NO .* IGNORE *. 
...*. LEGAL .*X. 
♦.RESPONSE .* 
*. .* 



4*ig5*«**4*« 

* 4 
ELANK COT 

LABEL AREA 
lOAHEA 

* 4 
44********* 



**H2******* 



4 44H3************ 



IS 
MESSAGE 
«H15A . 
*. .* 



4** *4G5*** ******* 
4 * 

* BLANK CUT * 

* LABEL AREA * 

* lOAREA * 

* * 
4**444**444*4***4 



..X. 
X 

**** 

* * 

* C2 * 

* * 
**** 



444444***** 



.* BESPONSE 


*. 




NO 


*. END OR NO 




* 




*. CONSOLE . 


* 






*. .* 








*. .* 






X 


* YES 






**** 








* 


* * . 






* A2 


* K1 *.X. 






* 








♦**♦ 


*♦** 








ABOBTJOB 








X 








*44c4K1********* 




* SVC 6 




* 




* CANCEL 




* 





4******4******* 



***************** 



*****j3* ********* 

* * * * 

* * SVC 7 ♦ * 

* * NAIT * * 

* *IF EEQDIBED* * 

* 4 * * 
***44*4*4******** 



****I^3*4**44*** 

* EETOEN TO * 

* CALLING ♦ 

* EODTINE * 
**********444** 
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Chart UB. DUMODFO: Put and Close Routines 



RegO 



user's: work area 



Put Processing 



User's I/O area 



20 



DTF table 



CCB bytes 2 and 3 



Bits for: Data Check 

Unrecoverable 
I/O error 



iKD 



B'lxxxxxxx'=no-more-extents 



End-of-data seek address 



&*' 



Current seek argument 



ERROPT: B'1xxxxxxx'=name 

B'x1xxxxxx'=IGN0RE 
B'xx1xxxxx'=SKIP 



Address of user's error routine 



Bits for: C6's written on volume 
EOF-no-feedbit 



Put record on block of records to ERIC. 
End-of-extent. 

- update ERMAP if X'C6' records were 
written on volume 

- feed to a new volume (unless no-more- 
extents bit on) 

- exit to OPEN transient to get new extent. 
Error handling 

a. ERREXT and ERROPT not specified. 

• No error handling in logic module. 

b. ERROPT specified. 

• Determine error. 

• Determine ERROPT error option, 
-name — exit to user's error routine 

— upon return take IGNORE option 
-SKIP or IGNORE- ignore error. 

c. ERROPT and ERREXT specified. 

• Determine error. 

• Determine ERROPT error option, 
—name— exit to user's error routine 

— return is by E RET macro with 
following options: 

— SKIP and IGNORE- error is ignored 

— RETRY— causes bad spot control 
records to be written In the current (error) 
diskette block, and the write retried in 
the next sequential diskette block. 

-SKIP and IGNORE- ignore error. 



J 
f 




I 



4. Close entry. 

- write shore block if necessary 

- update ERMAP if X'C6' records were written on 
volume. 




Reg 1 



Addr. of error block 



Regl 
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Chart UD. Transition through OPEN 



1 




SSBOD101 




o2) 






C=) 



(3=) 



G^O^D 



r terminate J ( message J 



0-H 



GH 



^ 



( ""•' ) ( "''^ ) Cl£l) 



r^r^ j)6c^ 



^ 




r^ JCL/user J f^ cancel j ^Aj T? J MOj 
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Chart UF. $$B35400: 
Input 



Diskette Cpen, Initializaticn (Part 2 cf 3) 

Processing Output 



[up 




6) Update open transient table 
for 3540 device characteristics: 

A. number of tracks per 
cylinder 

B. maximum head number 

C. maximum address on disk 

7) Contents of the DLBL/ 

EXTENT card(s) are checked 
here : 

A. If returning from the 
message writer because of 
an invalid DLBL/EXTENT, 
the bypass indicator is set 
in the extent image and it 
is re-written back to 
SYSRES label cylinder. 

B. Set up base register for 
DLBL/EXTENT DSECTS of 
subsequent phases. 

C. All DLBL and EXTENT 
cards are read and checked 
for validity. 

Errors and cause: 

1) 43811 -no SYSRES label 
information. 

2) 43611 -invalid DLBL 
function. 

3) 4358 1 - no extent for output 
file. 

D. If no extent is provided for an 
input file a dummy extent is 
generated 



©I 



Open transient table 
x'467' - tracks/syl 
x'468' - max seek address 
x'46B' - max head number 

Set up base register for 
DLBL/EXTENT image 

build a dummy extent for 
input: 

1) blank vol serial 

2) X'FFFF' in symbolic unit 

3) zero elsewhere. 



write extent indicating 
bypass. 



48811 - no label information 
43611 - invalid DLBL function 
43581 - no XTNT for output 
file 




Charts 427 



Chart VA. $$B35aOI: Diskette CFen Input (Part 1 cf 3) 
Input Processing 



Output 



Registers: 

2 points to DTF 

6 points to DLBL/EXTENT 
in core 

7 communication region 

Open table: 

X'4A3' - system open 

indicator (masl< X'02') 
X'496' - the DIB address 

Communication region: 



lO 



X'38' 



- job control open 
(mask X'40') 



DTF + 6 = symbolic unit 

DTF + 20 = DTF type 

DTF + 21 = file open indie. 

DTF + 72 = chaining factor 

Com, region +56 = job control 

open 
DLBL + 0= bypass indicator 
PUB + 4= device type 
PUB2 +14= X'02' - system FIK 

X'01' - file open on 

device 
DIB + 3= beginning address 
DIB +10= no more extents X'80' 
DIB + 11= extent sequence 

number 
DIB + 13 = end of data 



rcp 



1 ) Relocate CCW string. 

2) If the file is to a system unit: 

A. If X'4A3' does not indicate 
opened, processing 
continues with step 3. 
Otherwise, continue. 

B. If not DTFDU, continue 
step 'D'. 

C. If DTFDU being opened, a 
check is made to guarantee 
single sector mode processing. 
If command chaining is 
indicated terminal error 43371 
is issued. If not, continue. 

D. If the open is from job control 
or if the DTF indicates file is 
already open processing 
continues with step 3. 
Otherwise, continue. 

E. The DTF is updated from the 
DIB. The file is indicated open. 

F. Change DTFNAME to 
'IJSYSIN'. 

G. If step 'E' was executed then 
exit is to either the open 
monitor to open next file or 
to the user's next instruction 

if all files opened. If step 'E' was 
not executed then processing 
continues in this phase. 




DTF fields updated: 


X'15' 


- open indicated 


X'36' 


- upper limit 


X:3C' 


- lower limit 


X'45' 


- upper track limit 


X'4C' 


- LIOCS control block 


X'16' 


- DTF name 


X'26' 


- communication switches 




open monitor 



user's next 
instruction 



continue this 
phase 
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Chart VC. $$B35aOI: 
Input 



Diskette Cpen Input (Part 3 cf 3) 

Processing 



Output 



Open table: 

X'498' - address of 
next DLBL 
extent record 

Logical unit block 
Physical unit block 



ra 



O 




6) If file is not opened the 
DLBL/EXTENT in core 
is the one processed. 

If the file is opened a 
search is done to read 
the next extent to be 
processed into core. If 
the record sought is 
not found termination 
with an error. 

7) Message 43831 will be 
issued if: 

A. Neither the DTP nor 
the EXTENT image 
contain the symbolic 
unit number. 

B. Assignment not to a 
3540 device. 

C. Symbolic unit different 
in extents. 

D. Attempting to open 
two files to same unit. 

8) If the extent does not 
contain a symbolic unit, 
but the DTP does, then 
the extent is updated 
from the DTP. 

9) Set system file indicator. 

10) Exit is made to the VOL 1 
label processing phase 




PUB2 + 14 - X'02' set if 
system file open 



$$BODI01 
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Chart VE, $$B0DI01: Diskette Voluire Label Processor (Fart 2 of 2) 

Input Processing Output 



(vo] 



8) If a mount message was issued 
and control is returned to this 
transient, then steps 4 - 7 are 
re-executed. 

9) If the correct volume is mounted 
then byte 10 of the VOLI 

label is checked to see if the 
volume is secured. If it is not 
secure this phase is exited 
to either the next input 
or output phase. If the 
volume is secured, then the 
secured message writer is 
called; If control Is returned 
to this phase, exit is made 
to the next input or output 
phase. 




$$B0DI05 



Output 



$$B0DI02 
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Chart VG. $$B0DI05: Diskette Open Input, HDRl Latel Prccessor (Part 2 cf 5) 
Input Processing Output 



Exit to secured 
message writer 
forHDRI label 



Note: If operator 
responds so that 
processing of the 
HDR1 can continue, 
execution will 
resume here upon 
return from secured 
message writer. 



ra 



E. FILE secure =( 



r 

no, continue 

yes, exit to secured 
message writer 





F. DTFPH 

1) Block length (from HDR1 label) 
is converted to binary and placed 
in the DTF. 

2) Multi-volume indicator bit is turned 
on in DTF. 

3) If multi-volume indicator is 
invalid, then terminal error. 

4) Continue with step 'I'. 

G. DTFCP/DTFDI 

1) Continue with step 'I'. 



# 




VF 




DTFPH updates: 

byte 74 - block length 



byte 73 



multi-volume 
indicator 



"El-. , , 

V ^^^^^ Other DTF 
^m types 
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Chart VJ. $$BCDI05: Diskette Open Input, HDRl Lafcel Processor (Part U of 5) 

Input Processing Output 



ra 



'L'A 



File open: 

Check to see that the multi- 
volume bit is on in the DTF. 
If it isn't, terminate with an 
error. 

2) If sequence checking is 
indicated, ttien the new 
sequence number is compared 
to the old sequence number + 
1, If they are equal, the new 
sequence number is saved in 
the extent image and new + 1 
is saved in the DTF. 
If they are not equal, a 
terminal error is issued. 

1) If the multi-volume indicator 
bit is not set in the DTF, 
terminate with an error. 

2) Reset the multi-volume 
indicator in the DTF. 

3) Indicate last volume in the 
DTF. 

4) If volume sequence checking 
is indicated, check volume 
sequence number. 

5) Reset check sequencing bit. 

6) Continue with step 'I'. 




DTFDU changes: 

Byte 108 - reset multi- 
volume indicator bit 
(mask X'10') 







"♦©3 
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Chart VL. $$B0DI06: 
Input 



Diskette Cper Input, Initialize DTF Tafcle (Part 1 cf 2) 

Processing Output 



Registers: 



address of DTF 
DLBL/EXTENT 
address In core 
communication 
region address 



DTF 
DTF 

DTF 

DTF 



+ 20 — DTF type 
+ 54 = end of 

data 
+ 60 = beginning 

address 
+ 72 = chaining 

factor 



ra 



^ 



1) Verify tliat beginning extent 
address is > X'00010001' ; 
if It Isn't, terminate. 

2) Verify that the file begins on 
a track boundary if the 
chaining factor is 2, 13, or 
26forDTFDU; 

if it doesn't, terminate. 

3) Verify that the end of data 
address > beginning extent; 
if it isn't, terminate. 

4) Verify that the end of data 
address < maximum seek 
address; 

If it isn't, terminate. 

5) ForDTFDU, DTFCP,or 
DTFDi,fill IntheLIOCS 
control block field and the 
LIOCS work bucket. 

6) For all DTF's: 

A. Set-file open Indicator 

B. Reset bypass indicator bit 

C. Save extent sequence number 

D. Set new volume indicator 

E. If last extent, set no more 
extents bit. 

7) If not a system file, continue 
with step 9. 




DTF changes: 


Tbyte 


21 - open Indicator 




(mask X'O 4') 


byte 


38 - no more 




extents (mask X'80') 


} 


- new volume bit 




(mask X'08') 


byte 


39 - bypass indicator 




reset (mask X'80') 


I byte 


40 - extent sequence 


► byte 


22 - DTFNAME 


Additional for DTFDU, 1 


DTFCP, and DTFDI : | 


► bytes 


68 - 71 - LIOCS 




control block 


► bytes 


76- 79 - LIOCS 




work bucket 
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Chart WA. $$B35a0O: Diskette Open Output (Part 1 of 3) 

Input Processing 



Output 



Registers: 

2 points to the DTF 


K 




I 


6 points to the 




DLBL/EXTENT 




image 






7 points to the 




system communication 




region 






Common open table: 




X'496' - the DIB address 




X'4A3' - system file 




opened indicator 




DTF + 6 = 


symbolic unit 




DTF + 20 = 


DTF type 




DTF + 21 = 


file open bit 




DTF + 39 ^ 


extent sequence 
number 




DTF + 72 ^ 


chaining factor 




DIB fields: 






DIB + 3 _ 


beginning extent 




DIB + 11 ^ 


extent sequence 
number 




DIB + 13 _ 


end of data 




DIB + 10 - 


switches 




DIB + 12 - 


HDR1 address 




DIB + 17 _ 


volume sequence 
number 








1 ) Relocate the CCW string. 

2) Set message number indicator 
in open table to signify output. 

3) If the file is to a system unit: 

A. If X'4A3' of the common 
open table does not indicate 
the file is opened, processing 
continues with step 4. 

B. If not DTFDU, continue with 
step 'D' 

C. If DTFDU Is being opened, a 
check is made to guarantee 
single sector mode processing. 
If command chaining is 
indicated, a terminal message 
is issued; if not, continue. 

D. If the DTF indicates that it 
is open then continue with 
step 4. 



E. User's DTF is updated from the 
DIB. Reset X'4A3' in open 
table. 

F. Exit is either made to the open 
monitor to open the next file 
or to the user's next instruction 
if all files processed. 




L 



Common open table: 1 


X'4A1' 


- set to X'F4' to 




indicate output 




for any messages. 


X'4A3' 


- system file opened 




switch is reset 




(mask X' 


Updated DTF fields: | 


^ 




X'37' - 


volume seq. number 


X'15' - 


open indicated 


X'16' - 


DTF name 


X'36' - 


upper limit 


X'3C' - 


low limit 


X'4C' - 


L IOCS work bucket 


tx'33' - 


HDR1 address 





Open monitor 



user's next 
instruction 



continue 
this phase 
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Chart WC. $$B35U0O: Diskette Cper Output (Part 3 of 3) 
Input Processing 



Output 




8) If the file is opened, a search is 
done to read next extent to be 
processed from the SYS RES 
label cylinder. If the record 
sought is not found, termination 
with an error occurs. 

9) If the extent is found, the 
extent sequence number is 
saved in the DTF. 



10) If it is to be bypassed. 


processing continues with step 8. 


11) Message 44831 will be issued if: 


A. Neither the DTF nor the 


EXTENT image contain the 


symbolic unit. 


B. PUB not for a 3540 device. 


C. Symbolic units In extent cards 


not equal. 


D. 2 DTP'S open to same device. 



-*0 

(wb| 



12) If the extent does not contain 
the symbolic unit, it is filled in 
from the DTF. 

13) Set system file indicator 

14) Exit is made to the V0L1 
label processing phase. 



DLBL/EXTENT modifications; 
X'64' - symbolic unit 




44071 no record Is found. 
44831 invalid logical unit 




PUB2 + 14 
file. 



X'02' system 



$$BODI01 
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chart WE. $$B0DI02: Diskette Cpen Output, Determine Extents (Part 2 cf 3) 
Input Processing Output 



I wdJ 




7) If not all HDR1 labels processed, 
execute step 6 again. 

8) When all HDRI's processed, begin 
second pass through HDR1 labels. 

9) If all files on the diskette are expired, 
the extent low limit in the DLBL/ 
EXTENT image is set to 'CCHRR' = 

'oioor. 



10) 



■^0^ 



If there are unexpired or write 
protected files, the highest still 
used sector on the diskette was 
saved by pass one in the extent. 
This diskette address is incremented 
to the next cylinder number, 
and record number set to 1. 
This value becomes the lower 
extent limit for the new file. 
It is stored in the extent image. 



11) ReadHDRI label. 



i^0<^ 



12) 



Continue with step 1 6 if it is a: 

A. Bad spot control record. 

B. Unexpired file.u. 

C. Write protected file. 

D. A non-overlapped file, with 
file name + to new file name. 
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Chart WG. $$B0DI03: Diskette Open Output, Create/Write New HDRl Label (Part 1 of 3) 

Input Processing Output 



Registers: 

2 address of DTF 

6 address of DLBL/ 
EXTENT Image 

7 address of com- 
munication region. 



DTF + 20 = 
DTF + 30 = 
DTF + 108 = 

EXTENT + 8 = 



DTF type 
HDR1 address 
3540 flags for 
DTFDU 
lower limit 



® 



1) Relocate the CCW string. 

2) Determine if there are any 
available HDR1 sectors by 
checking DTF HDR1 address. 
If It is zero, no available 
sector was found by previous 
transient, and user's job is 
terminated with an error. 

3) If there is space in the 
VTOC, and the DTF type 
isnotX'IA'(DTFDU), 
continue with step 6. 

4) If DTFDU, a check is made 
to see if the file being created 
is a secured file. If it is not, 
continue with step 6. 

5) If file is secure: 

A. The V0L1 label is read. 

B. The secured volume 
indicator is turned on in 
the VOL1 label. 

C. The updated VOL 1 label 
is written back out. 

6) Blank out the HDR1 build 
area. 

7) A check is made to determine 
that there is at least one full 
track of available space on the 
diskette; 

if not, the user is terminated 
with an error. If there is space 
available, continue. 







V0L1 label is updated 
to indicate a secured 
volume. {V0L1 + 10) 

Blank build area. 



€>* 



44001 no space in VTOC 
44591 invalid extent 




-»© 



^<D 



-^ 



Charts au? 



Chart WJ. $$B0DI03: Diskette Open Output, Create/Write New HDRl Label (Part 3 cf 3) 

Input Processing Output 



[WHJ 



K. If DTFDU 3540 flag byte 
indicates: 

1) File security desired, 
set HDR1 field to 'S' 

2) Write protect desired, 
set HDR1 field to 'P' 

Note: 

Write protect and file security 
are not supported for DTFPH, 
DTFCP. orDTFDI. 

9) Write new HDRl label out 
onto the diskette using the 
address saved in the DTF. 

10) Exit to next open output 
phase. 







Charts a49 



Chart WL. $$B0DI07: 
Input 



Diskette Cpen Output, Initialize ETF Table (Part 2 of 2) 
Processing Output 



common open table: 
X'496' - address of 
the DIB 



|wkJ 



5) If to a system unit: 

A. if DTFDU is being opened, a 
check is made to guarantee 
single sector mode writing, 
if CCW chaining is indicated, 
the user is terminated with 
an error. 

B. post the DIB from the DTF. 

C. set file open on device 
indicator 

6) Exit is to. 

A. close module, if DTF 
indicates open was called 
by close, because an extent 
was needed at close time. 

B. The open monitor. If more 
files to be processed. 

C. the user's next instruction, 
if all files processed. 




DIB updates: 1 


DIB+ 10 


= switch byte 




mask X' 10' = 




continued file 




mask X'80' = 




no more extents 


DIB + 3 = 


low limit address 


DIB+ 11 


= last extent opened 




sequence number 


DIB+ 12 


= HDR1 address 


DIB+ 13 


= end of data address 




on the diskette 


1 


{X'004A0001') 


DIB+ 17 


= volume seq. number 


DIB+ 19 


= number of records 




per track = 26 



PUB2+14 X'Or file open on 
device 




44371 chaining to system unit 




Charts 451 



Chart WN. 



Input 



$$BCDUCP: Diskette BTFCP/DTFDI Open (Part 2 cf 2) 
Processing 



Output 



[WMJ 



L. set the number of 

records to 1 . 
M. set control block field 

to X'0049001A' 

2) Turn on bit in job control 
switch byte in the system 
communication region, to 
indicate to $$B0PEN1 that 
entry is from this phase 

3) For an output file, the 
user's lOREG is initialized. 

4) Exitto$$BOPEN1 



I 



$$B0PEN1 




DTFDI/DTFCP changes 
continued: 

DTF + 68 = control block 
DTF + 72 = number of 
records 

Communication region: 

X'58' = job control switch 
byte 

User's lOREG loaded 



Charts 453 



Chart WQ. $$B0DI08: Diskette Open Output, Extents frcir Console (Fart 2 of 2) 

Input Processing Output 



DTF + 39 - Extent 

sequence number 



(wH 



12) if this is the 256th 

extent, job is terminated 

13)build a dummy extent 
and update DTF 

14)exittoVOL1 label 
processing phase 



^ 



^ 44451 too many extents 




$$BODI01 



new extent: 

DLBL + 84 = blank out volume 

serial number 
DLBL + 90 = extent type = 1 

DTF updated: 

DTF + 38 = 1052 extents 

indicator 
DTF + 39 = extent sequence 

number 



Charts 455 



Chart WS. $$BOBIOU: Diskette Clcse (Part 2 of 4) 

Input Processing 



Output 



DTFDU: 

DTF +16= logic module 
address 

Logic module address + 16 
should be a branch to the 
close entry point 

Logic module address + 24 
should be a second time to 
LIOCS close branch. 

DTF + 73 = indicators from 
LIOCS to specify 
close needs an 
extent. 



(wrJ 

— — — — ^ 



11) If DTFDU input file, the 
multi-volume indicator is 
reset in the DTF. 

12) If it IS a DTFDU output 
file (regardless of being a 
system file or not), control 
is passed back to LIOCS to 
complete any processing 

that is necessary. Control is passed 
passed back to close entry 
point one or two, depending 
on LIOCS indicators in the 
DTF. 

13) Return from LIOCS is 
always at this point. 

14) If LIOCS indicates it 
needs an extent, then this 
phase is exited to the first 
output open phase. If 
LIOCS indicates all processing 
complete, processing 
continues. 




DTFDU modified: 



DTF+ 108 = 



reset multi- 
volume indicator 



(^ 



Charts 457 



Chart WU. $$B0DI0a: Diskette Close (Fart 4 cf 4) 

Input Processing 



Output 



m 



23) If DTFPH, DTFCP, 
DTFDI feed the diskette 
out. 

24) If DTFDU, checktoseeif 
feeding is suppressed. If it 
is, continue with step 25. If 
it is not, feed the diskette. 

25) If DTFDU reset LIOCS 
switches (X'00') 

26) For all DTF's: 

A. set invalid seek address. 
(X'FF') 

B. set invalid LIOCS work 
bucket address (X'FF') 

C. set communication 
switches byte one 
(X'08') 

D. set communication 
switches byte two 
(X'00') 

E. reset unit exception 
(X01') 

F. reset switch indicating 
file open (X'04') 

G. reset spooled end of 
data switch (X'02') 

27) reset PUB2 switches 

28) If another file to be closed 
is present, exit to the close 
monitor. If all files processed, 
exit to the user's next 
instruction. 






DTFDU modification: 

DTF + 73 = LIOCS switches 

All DTF's 

DTF + 3 = spooled end-of-data 
DTF + 4 = unit exception 
DTF + 21 = file open switch 
DTF + 38 = communication 

switches byte one 
DTF + 39 = communication 

switches byte two 
DTF + 61 = seek address 
DTF + 77 = LIOCS work 

bucket. 



^ 



PUB2 + X'02' reset if JCL close 
X'01' reset if problem 
program close and not 
to a system file 




users 

next 

instruction 



Charts 1*59 



APPENDIX A; 



LAEEL CRCSS -REFERENCE LIST 



Label 


Phase 


Location 


• BK2 


PRMOO 


CFA4 


• BK3 


PRMOD 


CFB4 


.BK4 


PR MOD 


CGJ5 


.BK5 


PRMCD 


CGJ4 


.MF114 


CDMCD 


AMH2 


.P19 


PRMOD 


CFA5 


.P21 


PRMCD 


CGAl 


.P22 


PRMOD 


CGHl 


• P23 


PRMCD 


CFF5 


.P24 


PRMCD 


CGFl 


• P27 


PRMOD 


CGDl 


.P28 


PRMCD 


CGKl 


.P30 


PRMOD 


CGG4 


.P36 


PRMCD 


CGA5 


.P37 


PRMCD 


CGE5 


• P38 


PRMCD 


CEB2 


.P38C 


PRMCD 


CDG3 


.P41 


PRMCD 


CGH2 


• P42 


PRMCD 


CGC4 


.P44 


PRMCD 


CDE3 


.P45 


PRMCD 


CGK4 


• P46 


PRMCD 


CEE2 


.P47 


PRMCD 


CEH5 


.P50 


PRMCD 


CFE4 


• P51 


PRMCD 


CFC4 


.P53 


PRMCD 


CFH2 


.P53A 


PRMCD 


CFJ2 


• P54 


PRMCD 


CFK2 


.P54A 


PRMCD 


CFE3 


• P55 


PRMCD 


CGCl 


.P56 


PRMCD 


CGJl 


.P66 


PRMCD 


CFK4 


.P67 


PRMCD 


CFB5 


.P76 


PRMCD 


CGD4 


.P77 


PRMCD 


CGF4 


.P79C 


PRMCD 


CEG2 


.P81 


PRMCD 


CEB5 


ABORTJOB 


$$BCMT07 


FKD2 


ABORTJOB 


*$BMSGWR 


FLJ3 


ABORTJOB 


$$BCSD07 


LWE2 


ABORTJOB 


SD 


LZE5 


ABORTJOB 


$$BCCPM1 


SEKl 


ABORTNOT 


$$B0SDW1 


MBG2 


ABOVEFE 


$$B0UR01 


ABC2 


ADDSEQNO 


$$B0SD07 


LWE4 


ADDIXTNT 


$$B0SDW2 


MCJl 


AD J INPUT 


$$BCCPT1 


SAGI 


ADJNOEOF 


SSBCCPTl 


SAA2 


AFTERSOR 


$$B0MT02 


FCD3 


AGAIN 


$$BCMT07 


FKB3 


AGAIN 


$$BMSGWR 


FLG4 


AGAIN 


$$BCCPM1 


SEGI 


AJALT 


$$B0CP03 


0CF3 


AJALT 


$$B0CP11 


0D83 


ALLBYPS 


$$BCSD01 


LLE3 


ALTORM 


$$BCMT07 


FMBl 


ANYOPEN 


$$B0SDW1 


MAA3 


AUTOTERM 


$$BCMT07 


FKB2 


AUTOTERM 


SSBMSGWR 


FLG3 


AUTOTERM 


$$BCCPM1 


SEE2 



Label 

BACKSPC2 

BEGINRTN 

BEGINRTN 

BELOWFE 

BELOWFE 

BELOWFE 

BKSP 

BKSPACE 

BRSWIT 

BUILDFl 

BUILDL3L 

BUILDLBL 

BUILDLBL 

BYPASS 

BYPASSED 

BYPASSX 

BYPASSX 

BYPASSX 

BYSTDUTL 

CALLERP 

CALLMSG 

CALLMSGI 

CALLMSGl 

CALOPN 

CALOPNl 

CALOPNl 

CBCLOSE 

CBDUMP 

CCPTAPE 

CD25202 

CD25402 

CHECK 

CHECK 

CHECK 

CHECK 

CHECK 

CHECKDAT 

CHECKID 

CHECK ID 

CHECKLL 

CHECKXNT 

CHEKXTNT 

CHKALC 

CHKALC 

CHKFORM 

CHKIPT 

CHKLAB 

CHKLAB 

CHKLP 

CHKLP 

CHKMOR 

CHKMOP 

CHKMOR 

CHKMOR 

CHKNUMB 

CHKPCH 

CHKPRTR 

CHKPOP 

CHKTM 

CHKTM 



Phase 


Location 


$$B0MT03 


EEA3 


$$BERRTN 


PGB2 


$$BCLOSP 


SCBl 


$$BOUR01 


ABCl 


$SBOSIGN 


LNFl 


5;$B0S0W1 


MAA4 


$$B0CPT3 


RHD3 


MTMOD 


FJE2 


$$BOSOOO 


LAE4 


$$B0SD04 


LPA2 


$$BOMT04 


EFDl 


$$BGCPT3 


PJGl 


$$BCCPT1 


SAG3 


$$B0MT04 


EFD3 


SSBOSDTl 


LEB4 


$$B0SDT1 


LED2 


$$B0SD01 


LLA3 


$$B0SDW1 


MADl 


$$BCCPT1 


SAG2 


$$BCL0SP 


SCD5 


$$BOCP01 


QAB2 


$$B0CP02 


0BE2 


$$B0CP12 


0FF3 


$$B0CP11 


0EJ4 


$$BOCP02 


0BK5 


$$B0CP12 


0FK4 


$$B0SDI3 


LHD4 


SSBJCOPl 


ELJ3 


$$BCCPT1 


SABl 


!^?5BCL0SP 


SOCl 


$$BCLOSP 


SDB2 


$«B0MP01 


BE05 


$?iB0MT02 


ECB3 


$$B0SDI1 


LEG5 


$$B0CPT3 


RJCl 


$SBCCPT1 


SAC3 


$5;B0MT06 


EHF4 


$$B0MT01 


EAH4 


$$B0MT02 


ECE3 


SSBOSDOe 


LXE4 


$$B0S008 


LXG4 


$$B0SD03 


LPH4 


$SBCMT02 


FBJ2 


SSBCMT07 


FHA4 


<iSBOMPCE 


AC El 


$$BJC0P1 


ELGl 


S$B0CPT1 


PAB4 


$$B0CPT2 


PnD3 


SSBOCPTI 


PBF5 


SSBOCPT-? 


REF3 


-<;SB0CP01 


QAH4 


$SBOCP02 


OBGl 


$$B0CP11 


00F3 


$?;Bncpi2 


OFGl 


$$BOMPCE 


ADCl 


SSBOUPOl 


AAB5 


$$B0UP01 


AAA4 


Si^^BOUPOl 


AABl 


SSBOCP-^l 


RAH3 


S$B0CPT2 


PDC3 



Appendix A: Label Cross-Ref erence List U61 



Label 

EXIT 

EXIT 

EXIT 

EXIT 

EXIT 

EXITCLOS 

EXITLAB 

EXITLAB 

EXITLAB 

EXITMON 

EXITNLAB 

EXITNLAB 

EXITNLAB 

EXITNLB 

EXITNLB 

EXITNLB 

EXITPT 

EXITRDR 

EXITRTN 

EXITUSER 

EXMFCM 

EXPDATE 

EXP DATE 

EXPIRCHK 

EXPIRED 

EXPIRED 

EXTENT5 

FCHMSG 

FCHMSG 

FEOVRET 

FETCHALT 

FETCHIT 

FETCHIT 

FETCH07 

FETCH07 

FILEADD2 

FILE^tARK 

FILEOVLP 

FILEPROT 

FILEPROT 

FILEPROT 

FILEPROT 

F RETYPE 

FINDLAST 

FIND SPOT 

FIND SPOT 

FIND SPOT 

FINDSPT 

FINDXTNT 

FINISH 

FIRSTCD 

FIXED 

F0RMAT3 

FORMATS 

FOPTUNL 

FRMTBL 

FRSTINST 

FRSTINST 

FRSTINST 

FSTM 

GETOATE 
GETDEFLT 
GETDSPLY 
GETNEXT 



Phase 


Location 


$$B0CPT1 


RCC3 


$$BGCPT2 


REC4 


$$BCCPT3 


RHH3 


$$B0CPT4 


RMH3 


$$BCCPT1 


SBE4 


$$BCMT06 


FGJ3 


$$B0CPT1 


RCB3 


$$B0CPT3 


RHG3 


$$B0CPT4 


RMG3 


$$BCCPT1 


SBF4 


$$B0CPT2 


REB5 


$$BGCPT3 


RHG5 


$$B0CPT4 


RM04 


$$B0CPT2 


REB4 


$$B0CPT3 


RHG4 


$$B0CPT4 


RME4 


$$BCLOSP 


SCE5 


$$BCLOSP 


SCA5 


$$BCMT06 


EHE3 


$$BCSDC2 


MHJ4 


$$B0CP03 


0CA4 


$$B0MT03 


EDJI 


$$B0CPT3 


RJEl 


$$BCCPT3 


RHGI 


$$BCSD03 


L0G2 


$$B0SD08 


LXF3 


$$B0SDW2 


MCC3 


$$BCE0V1 


EMG2 


$$BCSDOO 


LAJ2 


$$B0SD05 


LTG4 


$$BCMT01 


FAK2 


$$B0CPT3 


RGC3 


$$BCCPT4 


RKHl 


$$BCMT01 


EAK3 


$$B0MT01 


EBK2 


$$B0SD06 


LUA4 


$$B0SD06 


LVAl 


$$B0SD03 


LQC2 


$$B0SDI4 


LJB2 


$$BCSD01 


LMA3 


$$B0SD05 


LTH4 


S$B0SD09 


LYG3 


$$B0SDC1 


MFB3 


SSBOSDOl 


LLD4 


$$B0SD04 


LRD2 


$SBCSD05 


LSA5 


$$B0SDW2 


MCA5 


$$B0SDW2 


MCGl 


$$BCSDW3 


MEB3 


$$B0MRCE 


ADH4 


$$BCMRCE 


ACJl 


$$B0SD01 


LMA2 


S$BCSD05 


LSH5 


$$B0SDW2 


MCF5 


$$B0CPT3 


RHC4 


S$BCE0V1 


EMJl 


$$BCMR01 


BEBl 


$$B0MR01 


BEB5 


$$BWMR20 


BFB2 


$$BCCPT4 


RL05 


$$B0MT03 


EDC3 


$$BCMT03 


EDGl 


$$BGSD07 


LWF2 


$$B0SDI1 


LEC5 



Label 

GETNEXT 

GETOPN 

GETOPN 

GETPOINT 

GET POINT 

GETPUB 

GETPUB 

GOSENS 

GOTO 10 

HDRBLD 

HDPCHK 

HDRCHKX 

H0RCHK2 

HDRMSG 

HDRWRITE 

HDRICHK 

HEADERSW 

IFOPENFD 

IGNORE 

IJBWCONT 

IJCBXXXX 

IJCEXXX 

IJCMBXXX 

IJCMBXXX 

IJCMCXXX 

IJCMDXXX 

IJCMDXXX 

IJCMEXXX 

IJCMRXXX 

IJCPKXXX 

IJCPNXXX 

IJCPYXXX 

IJCPZXXX 

IJCRAXXX 

IJCRBXXX 

IJCRFXXX 

IJCRTXXX 

IJCRVXXX 

IJCR9XXX 

IJCR9XXX 

IJCXXXXX 

IJCOOXXX 

IJC30XXX 

IJC30XXX 

IJC33XXX 

IJC34XXX 

IJC34XXX 

IJC35XXX 

IJC36XXX 

IJC38XXX 

IJC41XXX 

IJC42XXX 

IJC43XXX 

IJC44XXX 

IJC50XXX 

IJC96XXX 

IJC96XXX 

IJC97XXX 

IJC98XXX 

IJOPKXXX 

IJDPKXXX 

IJDPMXXX 

IJDPRXXX 

IJDPUXXX 



Phase 


Location 


$$BGDOUE 


MJJ2 


$$BOCP02 


0BK4 


$$B0CP11 


0EG4 


$$B0SD05 


LSE4 


$$B0S0W2 


MCA4 


$$BOUR01 


AAK2 


MTMOO 


FJG5 


$$B0CPT2 


RDF5 


SSBJCOPT 


EKHl 


$$B0CPT3 


RJBl 


$$B0CPT4 


RMBl 


$$B0CPT4 


RMD2 


$$B0CPT4 


RMCl 


$$B0CPT4 


RMG2 


$$B0CPT3 


RJE2 


$$B0CPT1 


RAC4 


$$B0SD06 


LVCl 


$$B0SD03 


LPC3 


$$B0UR01 


ABD3 


SDMODW 


KDK3 


DTFCN 


A0C3 


CDMOD 


AKG4 


CDMOD 


AED5 


CDMOD 


AEE5 


CDMOD 


AGBl 


CDMOD 


ALB4 


CDMOD 


ALB5 


CDMOD 


AGD3 


CDMOD 


ALC4 


CDMOD 


AEC4 


CDMOD 


ALDl 


CDMOD 


AKA4 


CDMOD 


AJF3 


CDMOD 


AFC2 


CDMOD 


AFFl 


CDMOD 


AGA5 


CDMOD 


AJH3 


CDMOD 


AFEl 


CDMOD 


AED2 


CDMOD 


AED3 


CDMOD 


AHB4 


CDMOD 


AFB4 


CDMOD 


AHAI 


CDMOD 


AMAl 


CDMOD 


AMEl 


CDMOD 


AHDl 


CDMOD 


AMGl 


CDMOD 


AME4 


CDMOD 


AHEl 


CDMOD 


AHH2 


CDMOD 


AHB3 


CDMOD 


AH02 


CDMOD 


AHE3 


CDMOD 


AHH3 


CDMOD 


AME3 


CDMOD 


AHD3 


CDMOD 


AHGl 


CDMOD 


AHE4 


CDMOD 


AHC5 


PRMOD 


C0D3 


PRMOD 


CDF3 


PRMOD 


CED2 


PRMOD 


CFG2 


PRMOD 


CGB2 



i^.ppendix I^.t Label Crcss-Beference List 463 



Label 



Phase 



IJF 


RCK 


MTMOO 


IJF 


PEL 


MTMOD 


IJF 


REL 


MTMGD 


IJF 


REL 


MTMOD 


IJF 


REST 


MTMGD 


IJF 


SKI 


MTMOD 


IJF 


SKIP 


MTMOD 


IJF 


SKIP 


MTMOD 


IJF 


SKIP 


MTMOD 


IJF 


TEST 


MTMOD 


IJF 


TR 


MTMOD 


IJF 


TRI 


MTMOD 


IJF 


TRR 


MTMOD 


IJF 


TRU 


MTMOD 


IJF 


TRU 


MTMOD 


IJF 


VERl 


MTMOD 


IJF 


VER2 


MTMOD 


IJF 


WMV 


MTMOD 


IJF 


WORK 


MTMOD 


IJF 


WORK 


MTMOD 


IJF 


WRK 


MTMOD 


IJF 


WRKl 


MTMOD 


IJF 


WSR 


MTMOD 


IJF 


YSGT 


MTMOD 


IJFFBCKW 


MTMOD 


IJFFCON 


MTMOD 


IJFFCSVC 


MTMOD 


IJFFIGN 


MTMOD 


IJFFRCK 


MTMOD 


IJFFRCT 


MTMOD 


IJFFSTD 


MTMOD 


IJFFTET 


MTMOD 


IJFFVRSl 


MTMOD 


IJFFVRS2 


MTMOD 


IJFNOPK 


MTMOD 


IJFNROWR 


MTMOD 


IJFRDCBN 


MTMOD 


IJFREX2 


MTMOD 


IJFRNLCO 


MTMOD 


IJFRNOPO 


MTMOD 


IJFRNOPR 


MTMOD 


IJFRYSPD 


MTMOD 


IJFSCNTS 


MTMOD 


IJFSCNTT 


MTMGD 


IJFSCNTU 


MTMOD 


IJFSCNTV 


MTMOD 


IJFSEOVS 


MTMOD 


IJFSEOVT 


MTMOD 


IJFSEOVU 


MTMOD 


IJFSEOVV 


MTMOD 


IJFSEOVW 


MTMGD 


IJFSGETS 


MTMOD 


IJFSGETT 


MTMGD 


IJFSGETU 


MTMOD 


IJFSGETV 


MTMGD 


IJFSMOVS 


MTMGD 


IJFSMOVT 


MTMOD 


IJFSPUTC 


MTMOD 


IJFSPUTS 


MTMOD 


IJFSPUTT 


MTMOD 


IJFSPUTU 


MTMOD 


IJFSPUTV 


MTMOD 


IJFSSHFl 


MTMOD 


IJFSSHF2 


MTMGD 


IJFSSHIF 


MTMOD 


IJFSSOER 


MTMOD 



Location 

DVBl 
DJHl 
0JH3 
0JJ2 
DWF2 
DPE3 
DPJ2 
DSH3 
DUAl 
DDHl 
0VB4 
0VD4 
DVE4 
DJB3 
0JB5 
DVF2 
DVHl 
DWD2 
DWBl 
DWKl 
DWB2 
DWB3 
DWE2 
OPBI 
DLD4 
DLJ3 
DNG3 
DLG4 
DNBl 
DLC3 
DLF3 
DLG3 
DNFl 
DNE3 
DTB3 
DWB4 
DDF4 
DQG5 
DGD3 
DDF 3 
D0F5 
00E5 
DBA5 
0EE3 
0EH3 
DKB2 
DRC3 
DRH3 
DRJ3 
DRK3 
DKB3 
DDB2 
DDCl 
DEAl 
DEA2 
DEJ2 
DEA3 
DGC3 
DH61 
DHCl 
DHF4 
DHD3 
DEHl 
DEH2 
DEEl 
DEA4 



Label 


Phase 


Location 


IJFWCHEK 


MTMOD 


DABl 


IJFWCTL 


MTMOD 


DBH3 


IJFWEXCP 


MTMOD 


DWF5 


IJFWEXT 


MTMOD 


DFJ2 


IJFWFND 


MTMOD 


DFF2 


IJFWFSF 


MTMOD 


0WB5 


IJFWIGNR 


MTMOD 


0AG5 


IJFWNOTE 


MTMOD 


DFJ5 


IJFWNRXT 


MTMOD 


DAD3 


IJFWOUT 


MTMOD 


DAE2 


IJFWPNTR 


MTMOD 


DFB2 


IJFWPNTS 


MTMOD 


DFB3 


IJFWPNTW 


MTMOD 


DFBl 


IJFWRIT 


MTMOD 


DJB2 


IJFWSKIP 


MTMOD 


DAH4 


IJFWSTOR 


MTMOD 


DWE4 


IJFWTEST 


MTMOD 


OF El 


IJFXFOR 


MTMOD 


DMGI 


IJFXFORW 


MTMOD 


DMA2 


IJFXFWD 


MTMOD 


DKD4 


IJFXIGN 


MTMOD 


DMC3 


IJFXLOOP 


MTMOD 


DMEl 


IJFXLTST 


MTMOD 


DMDl 


IJFXt>AD 


MTMOD 


DMFl 


IJFXRCT 


MTMOD 


DLC5 


IJFXRST 


MTMOD 


DKG4 


IJFXTDCH 


MTMOD 


DMA3 


IJFXTRA 


MTMOD 


DK84 


IJG ERPl 


SDMODFO 


G0F5 


IJG UNIO 


SOMOOFO 


GDD5 


IJG WAIT 


SDMODFO 


GDB5 


IJGBADD2 


SDMODFU 


GKK2 


IJGBCHCK 


SOMOOFU 


GM02 


IJGBDATK 


SDMODFU 


GLH3 


IJGBOEBL 


SDMODFU 


GKCl 


IJGBOECL 


SDMODFU 


GLC5 


IJGBOECR 


SDMODFU 


GLA4 


IJGBDONE 


SDMODFU 


GKE3 


IJGBEOFT 


SDMODFU 


GLE3 


IJGBEXT 


SDMODFU 


GKH3 


IJGBFACT 


SDMODFU 


GKG2 


IJGBFACl 


SDMODFU 


GMCl 


IJGBFREE 


SDMODFU 


GMB3 


IJGBGENM 


SOMOOFU 


GLB5 


IJGBGET 


SDMODFU 


GKBl 


IJGBGETA 


SDMODFU 


GKH4 


IJGBGETO 


SDMODFU 


GKJ4 


IJGBHOLO 


SDMODFU 


GKE4 


IJGBIORU 


SDMODFU 


GKGl 


IJGBKETH 


SDMODFU 


GLG2 


IJGBLOOP 


SDMODFU 


GKD3 


IJGBNXRC 


SDMODFU 


GMH3 


IJGBPUT 


SDMODFU 


GNBl 


IJGBP460 


SDMODVO 


HEJ2 


IJGBRDEP 


SDMODFU 


GLF4 


IJGBRDl 


SDMODFU 


GKE2 


IJGBR03 


SDMODFU 


GKC3 


IJGBREAD 


SOMOOFU 


GKB4 


IJGBRELA 


SDMODFU 


GKF2 


UGB^ESI 


SDMODFU 


GLD5 


IJGBRET 


SDMODFU 


GLJ4 


IJGBRTRY 


SDMODFU 


GLJ5 


IJGBSKIP 


SDMODFU 


GMAl 


IJGBSWOF 


SDMODFU 


GLA3 


IJGBSW03 


SDMODFU 


r,KF4 


IJGBTEST 


SDMODFU 


GKD2 


i^ppendix h: Label 


Crcss-Eeference 


List 465 



Label 

IJGGSW03 

IJGGSW04 

IJGGSW06 

IJGGTEST 

IJGGTOM 

IJGGTST2 

IJGGUSER 

IJGGkAIT 

IJGGWLPT 

IJGGWRT 

IJGGkRTl 

IJGQUERR 

IJGQUEXT 

IJGQUFRE 

IJGQUNR 

IJGOUPT 

IJGQUSER 

IJGOUSKB 

IJGQUOOO 

IJGQUOIO 

IJGQUOll 

IJGQt'012 

IJGQU013 

IJG0U015 

IJGQU016 

IJGOU017 

IJGQU018 

IJG0U020 

IJG0U021 

IJGQU023 

IJGQU024 

IJGOU030 

IJGQUIOK 

IJGOUlOl 

IJGQU103 

IJGQU104 

IJGQU105 

IJG01J106 

IJGQU107 

IJGQU108 

IJG0U108 

IJGOL'109 

IJGQUllO 

IJGOUlll 

IJGQU112 

IJG0U114 

IJG0U115 

IJGQU120 

IJG0U121 

IJG0U121 

IJG0U123 

IJG0U124 

IJGQU156 

IJG0U400 

IJGQU401 

IJGQU440 

IJG0U490 

IJGRELS 

IJGSGSKI 

IJGSGOIO 

IJGSG030 

IJGSG400 

IJGSG410 

IJGSG420 

IJGSG430 

IJGSG430 



Phase 


Location 


SDMOOFU 


GGG4 


SDMODFU 


GG04 


SDMOOFU 


GGH4 


SDMOOFU 


GGEI 


SDMOOFU 


GHJl 


SDMODFU 


GHA5 


SDMODFU 


GHE3 


SDMODFU 


GHG2 


SDMODFU 


GHD3 


SDMODFU 


GHB2 


SDMODFU 


GHBl 


SDMODVU 


HNF5 


SDMODVU 


H0H2 


SDMODVU 


HLB5 


SDMODVU 


HQC3 


SDMODVU 


HQD3 


SDMODVU 


HQF3 


SDMODVU 


H0C4 


SDMODVU 


HJCl 


SDMODVU 


HJE3 


SDMODVU 


HKAl 


SDMODVU 


HKDI 


SDMODVU 


HKGI 


SDMODVU 


HKA2 


SDMODVU 


HKCl 


SDMODVU 


HKG5 


SDMODVU 


HKG4 


SDMODVU 


HKF2 


SDMODVU 


H0E3 


SDMODVU 


HKC3 


SDMODVU 


HKD2 


SDMODVU 


HJEI 


SDMODVU 


HPD4 


SDMODVU 


HNJ3 


SDMODVU 


HNB4 


SDMODVU 


HNH5 


SDMODVU 


HNJ5 


SDMODVU 


HNG4 


SDMODVU 


HPA4 


SDMODVU 


HNC5 


SDMODVU 


HNJ4 


SDMODVU 


HPF5 


SDMODVU 


HPAi 


SDMODVU 


HOBl 


SDMODVU 


HPEl 


SDMODVU 


HPB2 


SDMODVU 


HNG3 


SDMODVU 


HQFl 


SDMODVU 


HQB2 


SDMODVU 


H0D2 


SDMODVU 


HMA5 


SDMODVU 


H0E2 


SDMODVU 


H0B3 


SDMODVU 


HNEl 


SDMODVU 


HNA3 


SQMCDVU 


HPB3 


SDMODVU 


HMC4 


SDMODFU 


GNB4 


SDMODVI 


HAG2 


SDMODVI 


HBE4 


SDMODVI 


HACl 


SDMODVI 


HAB2 


SDMODVI 


HBA3 


SDMODVI 


HBC3 


SDMODVI 


HBE3 


SDMODVI 


HBF3 



Label 

IJGSG500 
IJGSG600 
IJGSG710 
IJGSG800 
IJGSG9I0 
IJGSPLYS 
IJGSP030 
IJGSP040 
IJGSP040 
IJGSP045 
IJGSP050 
IJGSP065 
IJGSPOTO 
IJGSP090 
IJGSPllO 
IJGSPIIO 
IJGSPI20 
IJGSP130 
IJGSP140 
IJGSPI50 
IJGSP200 
IJGSP202 
IJGSP203 
IJGSP205 
IJGSP2I0 
IJGSP220 
IJGSP240 
IJGSP260 
IJGSP265 
IJGSP270 
IJGSP280 
IJGUGOPT 
IJGUGUNI 
IJGUG040 
IJGUG050 
IJGUG060 
IJGUG070 
IJGUG080 
IJGUGIOO 
IJGUGI70 
IJGUG210 
IJGUG220 
IJGUG240 
IJGUG250 
IJGUG260 
IJGUG261 
IJGUG290 
IJGUG300 
IJGUG3I0 
IJGUG320 
IJGUG330 
IJGUPUNI 
IJGUP040 
IJGUP060 
IJGUP060 
IJGUP070 
IJGUP080 
IJGUPIOO 
IJGUP120 
IJGUP120 
IJGUP130 
IJGUPI50 
IJGUP160 
IJGUP200 
IJGUP220 
IJGUP230 



Phase 


Location 


SDMODVI 


HBB4 


SDMODVI 


HBD3 


SDMODVI 


HAH4 


SDMODVI 


HBD5 


SDMODVI 


HBK4 


SDMODVO 


HGB4 


SOMODVO 


HDHl 


SDMODVO 


HDC2 


SDMODVn 


HGAl 


SDMODVO 


HGEl 


SDMODVO 


HGFl 


SDMODVO 


HEB4 


SOMODVO 


HGHl 


SDMODVO 


HEB3 


SDMODVI 


HAF5 


SDMODVO 


HED3 


SDMODVO 


HGGl 


SDMODVO 


HEA2 


SDMODVO 


HEE2 


SDMODVO 


HFF2 


SDMODVO 


HFD5 


SDMODVO 


HFF5 


SDMODVO 


HFG5 


SDMODVO 


HFJ5 


SOMODVO 


HGA3 


SOMODVO 


HGJ3 


SDMODVO 


HGK3 


SOMODVO 


HGG4 


SOMODVO 


HGJ4 


SOMODVO 


HGK4 


SDMODVO 


HGA5 


SDMOOUI 


JAHl 


SOMODUI 


JAGl 


SDMOOUI 


JAEl 


SDMODUT 


JAFl 


SDMOOUI 


JA03 


SDMODUI 


JAF3 


SDMOOUI 


JAG3 


SOMODUI 


JAH3 


SDMODUI 


JAE3 


SOMODUI 


JABl 


SDMODUI 


JBC4 


SOMODUI 


JBC5 


SOMODUI 


JBB3 


SDMODUI 


JRC3 


SOMODUI 


JBF3 


SDMODUI 


JBH3 


SDMOOUI 


JAF2 


SDMODUI 


JAC4 


SOMODUI 


JBA4 


SOMODUI 


JBBl 


SOMODUO 


JODl 


SOMODUO 


JCDl 


SOMODUO 


JCJl 


SOMODUO 


JCKl 


SOMODUO 


JCCl 


SOMODUO 


JCB4 


SOMODUO 


JCC4 


SOMODUO 


J0B2 


SOMODUO 


J0C4 


SOMODUO 


JDC2 


SOMODUO 


JCG2 


SOMODUO 


JDB5 


SOMODUO 


J0B3 


SOMODUO 


JCB5 


SOMODUO 


JCD5 
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Label 

IJGVU040 

IJGVU050 

IJGVU065 

IJGVU070 

IJGVU075 

IJGVUIOO 

IJGVU140 

IJGVU150 

IJGVU151 

IJGVU152 

IJGVU153 

IJGVU156 

IJGVU158 

IJGVU159 

IJGVU160 

IJGVU161 

IJGVU220 

IJGVU240 

IJGVU250 

IJGVU250 

IJGVU260 

IJGVU270 

IJGVU290 

IJGVU292 

IJGVU300 

1JGVU310 

IJGVU330 

IJGVU340 

IJGVU360 

IJGVU370 

IJGVU380 

IJGVU400 

IJGVU410 

IJGVU415 

IJGVU420 

IJGVU430 

IJGVU440 

IJGVU442 

IJGVU444 

IJGVU450 

IJGVt460 

IJGVU470 

IJGVU490 

IJGVUSIO 

IJGVU520 

IJGVC70 

IJGVC80 

IJGWBLO 

IJGWCHECK 

IJGWCKRO 

IJGWCLOS 

IJGWCOMP 

IJGWCTL 

IJGWDECR 

IJGWETRY 

IJGWFOPN 

IJGWFRE 

IJGWFREE 

IJGWFTST 

IJGWHOLD 

IJGWIGN 

IJGWINST 

IJGWLCTY 

IJGWLOAD 

IJGWLREG 

IJGWNOTE 



Phase 


Location 


SDMODVU 


HJJl 


SDMODVU 


HJKl 


SDMODVU 


HJC2 


SDMODVU 


HJG2 


SDMODVU 


HJH2 


SDMODVU 


HJD3 


SDMODVU 


HJB3 


SDMODVU 


HJJ3 


SDMODVU 


HJA5 


SDMODVU 


HJE5 


SDMODVU 


HJB5 


SDMODVU 


HLB2 


SDMODVU 


HLFl 


SDMODVU 


HLF2 


SDMODVU 


HLBl 


SDMODVU 


HLGl 


SDMODVU 


HKB4 


SDMODVU 


HKB5 


SDMODVU 


HKG3 


SDMODVU 


HNFl 


SDMODVU 


HKH3 


SDMODVU 


HKJ3 


SDMODVU 


HMBl 


SDMODVU 


HMCl 


SDMODVU 


HMDl 


SDMODVU 


HMFl 


SDMODVU 


HMJl 


SDMODVU 


HMD3 


SDMODVU 


HMA4 


SDMODVU 


HMF2 


SDMODVU 


HMG2 


SDMODVU 


HNBl 


SDMODVU 


HNGl 


SDMODVU 


HNJl 


SDMODVU 


HNKl 


SDMODVU 


HNH2 


SDMODVU 


HNA2 


SDMODVU 


HPH3 


SDMODVU 


HPJ3 


SDMODVU 


HPK2 


SDMODVU 


H0B5 


SDMODVU 


HPJ2 


SDMODVU 


HMD4 


SDMODVU 


HME4 


SDMODVU 


HRBl 


SDMCDVI 


HAA4 


SDMODVI 


HAB4 


SDMODW 


KEF2 


SDMODW 


KEBl 


SDMODW 


KEA2 


SDMODW 


KDB3 


SDMODW 


KEH2 


SDMODW 


KGB3 


SDMODW 


KBB5 


SDMODW 


KCJ2 


SDMODW 


KFH2 


SDMODW 


KEA3 


SDMODW 


KGB2 


SDMODW 


KEH4 


SDMODW 


KAB3 


SDMODW 


KEF3 


SDMODW 


KBC4 


SDMODW 


KFGl 


SDMODW 


KBD2 


SDMODW 


KOHl 


SDMODW 


KFBl 



Label 


Phase 


Location 


IJGWGPT 


SDMODW 


KEGl 


IJGWPASS 


SDMODW 


KFF3 


IJGWPNT 


SDMODW 


KFB2 


IJGWPNTR 


SDMODW 


KFB3 


IJGWPNTS 


SDMODW 


KGBl 


IJGWRDSW 


SDMODW 


KEE2 


IJGWREAD 


SDMODW 


KABl 


IJGWRITE 


SDMODW 


KBBl 


IJGWRW 


SDMODW 


KOBl 


IJGWSLD 


SDMODW 


KCB3 


IJGWSOFF 


SDMODW 


KCBl 


IJGWSSET 


SDMODW 


KBG4 


IJGWSSTR 


SDMODW 


KCF3 


IJGWSTAR 


SDMODW 


KAFl 


IJGWSTCH 


SOMGOW 


KCCl 


IJGWSVCO 


SDMODW 


KAK2 


IJGWTEST 


SDMODW 


KBC5 


IJGWTLIM 


SDMODW 


KFF2 


IJGWUND 


SDMODW 


KDE2 


IJGWUNRC 


SDMODW 


KEB2 


IJGWUPOF 


SDMODW 


KEJ4 


IJGWUSER 


SDMODW 


KEJl 


IJGWWRTE 


SDMODW 


KBCI 


IJGWWTER 


SDMODW 


KEFI 


IJGWWXIT 


SDMODW 


KBG5 


IJGIXXX 


DIMOO 


PCFl 


IJJASCNQ 


CPMOD 


NEEl 


IJJASCNl 


CPMOD 


NEG5 


IJJASCN2 


CPMOD 


NEK5 


IJJCAL2 


CPMOD 


NCE5 


IJJCAL2 


CPMOD 


NEF5 


IJJCAL2 


CPMOD 


NGF5 


IJJCEXEX 


CPMOD 


NCJl 


IJJCFOND 


CPMOD 


NCD3 


IJJCFONO 


CPMOD 


NEHl 


IJJCFOND 


CPMOD 


NGGl 


IJJCNOSK 


CPMOD 


NBF2 


IJJCNOEK 


CPMOD 


NBE3 


IJJCPCAL 


CPMOD 


NCK4 


IJJCPCAL 


CPMOD 


NE03 


IJJCPCAL 


CPMOD 


NGC3 


IJJCPOSK 


CPMOD 


N6E1 


IJJCPDSK 


CPMOD 


NDBl 


IJJCPOSK 


CPMOD 


NFBl 


IJJCPDSK 


CPMOD 


NHB2 


IJJCPEND 


CPMOD 


NAJ2 


IJJCPEOV 


CPMOD 


NCE2 


IJJCPFA3 


CPMOD 


NDC5 


IJJCPFA3 


CPMOD 


NFGl 


IJJCPFA3 


CPWOD 


NHG2 


IJJCPF02 


CPMOD 


NOEl 


IJJCPF02 


CPMOD 


NFEl 


IJJCPF02 


CPMOD 


NHE2 


IJJCPF03 


CPMOD 


NDB5 


IJJCPF03 


CPMOD 


NFFl 


IJJCPF03 


CPMOD 


NHF2 


IJJCPF04 


CPMOD 


N0F5 


IJJCPF04 


CPMOD 


NFG2 


IJJCPF04 


CPMOD 


NHG3 


IJJCPF13 


CPMOD 


NAH4 


IJJCPF13 


CPMOD 


NBJl 


IJJCPFI4 


CPMOD 


NAF5 


IJJCPF14 


CPMOD 


NBE2 


IJJCPGP 


CPMOD 


NAB2 


IJJCPGP 


CPMOD 


NCCl 


IJJCPGP 


CPMOD 


NECl 
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Label 


Phase 


Location 


1JME3XXX 


ORMCD 


BMA4 


IJMTIXXX 


ORMOO 


BLJ5 


IJMEA 


ORMOD 


CAD3 


IJMTJXXX 


ORMOD 


BJFl 


IJME4XXX 


ORMCD 


BMC4 


IJMTKXXX 


ORMOO 


BJCl 


IJME5 


DRMOD 


CAE3 


IJMTLXXX 


ORMOO 


BJDl 


IJME6 


ORMOO 


CAF3 


IJMTMXXX 


ORMOO 


BKB2 


IJME7 


ORMOD 


CAG3 


IJMTNXXX 


ORMOO 


BLC3 


IJME8 


DRMOD 


CAE4 


IJMTOXXX 


ORMOD 


BJH2 


IJME9 


DRMOD 


CAG4 


IJMTOXXX 


ORMOO 


BLG3 


IJMGBXXX 


ORMOD 


BJE2 


IJMTOXXX 


ORMOO 


BME4 


IJMGCXXX 


ORMOD 


BSE3 


IJMTOXXX 


ORMOD 


BSEl 


1JMM2XXX 


ORMCD 


BSF4 


IJMTIXXX 


ORMOD 


BPC3 


IJMM3XXX 


ORMOO 


BSF3 


IJMT2XXX 


ORMOD 


BPD3 


IJMM4XXX 


ORMOD 


BSG3 


IJMT3XXX 


ORMOD 


BPE3 


IJMOGXXX 


ORMOD 


BHFl 


IJMT5XXX 


ORMOO 


BGH4 


IJMRD 


DRMOD 


CAB5 


IJMT6XXX 


ORMOD 


BGE3 


IJMRDXXX 


ORMOD 


BPB2 


IJMT7XXX 


ORMOO 


BGD4 


IJMRGXXX 


ORMOD 


BTA2 


IJMTBXXX 


ORMOO 


BMD4 


IJMRLXXX 


ORMOD 


BRF2 


IJMTBXXX 


ORMOO 


BSDl 


IJMPTXXX 


ORMOD 


BSK5 


IJMT9XXX 


ORMOO 


BKAl 


IJMRTXXX 


ORMOD 


BTA4 


IJMT9XXX 


ORMOO 


BNAl 


IJMRUXXX 


ORMCD 


BTA3 


IJMT9XXX 


ORMOO 


BSB3 


IJMRXXXX 


ORMOD 


BTC4 


IJMUAXXX 


ORMOD 


BTKl 


IJMRZXXX 


ORMOD 


BRFl 


IJMUBXXX 


ORMOO 


BTJl 


IJMRIXXX 


ORMOD 


BRG2 


IJMUCXXX 


ORMOO 


BTC3 


IJMR3XXX 


ORMCD 


BRH2 


IJMUSXXX 


ORMOD 


BTHl 


IJMR4XXX 


ORMOD 


BRH3 


IJMUTXXX 


ORMOO 


BTD3 


IJMR5XXX 


ORMCD 


BRBl 


IJMUUXXX 


ORMOO 


BTE3 


IJMR8XXX 


ORMOD 


BRA2 


IJMUVXXX 


ORMOD 


BTF3 


IJMRSXXX 


ORMCD 


BRD2 


IJMUWXXX 


ORMOO 


BTG3 


IJMSAXXX 


ORMOD 


BJJl 


IJMWEXXX 


ORMOO 


BSJ3 


IJMSAXXX 


ORMCD 


BUB2 


IJMWT 


DRMOD 


CBB5 


IJMSBXXX 


ORMOD 


BHB4 


IJMWTXXX 


ORMOD 


BSBl 


IJMSBXXX 


ORMOD 


BJF3 


IJMWWXXX 


ORMOD 


BSK3 


IJMSBXXX 


ORMCD 


BUA3 


IJMWl 


DRMOD 


CBC5 


IJMSCXXX 


ORMOD 


BHG4 


IJMW2 


DRMOD 


CBD5 


IJMSCXXX 


ORMCD 


BJJ3 


IJMW3 


DRMOD 


CBF5 


IJMSCXXX 


ORMCD 


BUE3 


IJMZBXXX 


ORMOO 


BLD5 


IJMSKXXX 


ORMCD 


BGB3 


IJMZCXXX 


ORMOD 


BLB5 


IJMSC 


DRMOD 


CBBl 


IJMZDXXX 


ORMOO 


BLF5 


IJMSQXXX 


OP MOD 


BJC4 


IJMZEXXX 


ORMOO 


BLB4 


IJMSQXXX 


ORMCD 


BMF5 


IJMZJXXX 


ORMOD 


BLHl 


IJMSOXXX 


ORMOD 


BSA3 


IJMZKXXX 


ORMOO 


BLJl 


IJMSC 


DRMOD 


CBCl 


IJMZLXXX 


ORMOD 


BLK2 


IJMSl 


DRMOD 


CBDI 


IJMZQXXX 


ORMOD 


BGF5 


IJMS2 


DRMOD 


CBFl 


IJMZQXXX 


ORMOD 


BGJ5 


IJMS3 


DRMOD 


CBHl 


IJMIOXXX 


ORMOD 


BSJl 


IJMS5 


DRMOD 


CBD2 


IJM2MXXX 


ORMOO 


BHC3 


IJMS6 


DRMOD 


CBA3 


IJOPEN 


$$B0SD04 


LREl 


IJMS7 


DRMOD 


CBG3 


IJPTXXXX 


DTFCN 


APC3 


IJMS8 


DRMOD 


CBH3 


IJSG720 


SDMOOVI 


HAK5 


IJMSS 


DRMOD 


CBJ3 


IJUADONE 


MRMOD 


BAF2 


IJMTAXXX 


ORMOD 


BKBI 


IJUAGAIN 


MRMOD 


BDD3 


IJMTAXXX 


ORMCD 


BNBl 


IJUCALLW 


MRMOD 


BAGS 


IJMTAXXX 


ORMCD 


BSB4 


IJUCHECK 


MRMOD 


BAHl 


IJMTBXXX 


ORMCD 


BKFl 


IJUCHEK 


MRMOO 


BABl 


IJMTBXXX 


ORMCD 


BNFl 


IJUCKMES 


MRMOD 


BBD3 


IJMTBXXX 


ORMOD 


BSH3 


IJUCLBUF 


MRMOD 


BAG2 


IJMTCXXX 


ORMCD 


BKJl 


IJUCLOEX 


MRMOD 


BAJ3 


IJMTCXXX 


ORMCD 


BNJI 


IJUDISDL 


MRMOD 


BDCl 


IJMTDXXX 


ORMOD 


BKKl 


IJUDISEN 


MRMOD 


BDBl 


IJMTOXXX 


ORMCD 


BNKl 


IJUEMOTS 


MRMOO 


BBBl 


IJMTEXXX 


ORMCD 


BKA2 


IJUENDWT 


MRMOD 


B0G2 


IJMTEXXX 


ORMCD 


BNB3 


IJUENGCK 


MRMOO 


BAH3 


IJMTFXXX 


ORMCD 


BKC2 


IJUENLST 


MRMOO 


BDG5 


IJMTFXXX 


ORMCD 


BNC4 


IJUEXIT 


MRMOD 


BDH3 


IJMTFXXX 


ORMOD 


BTEI 


IJUFEED 


MRMOD 


BAC4 
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Label 

ISOONE 

ISHDRINF 

ISLOADPT 

ISLOAOPT 

ISLOADPT 

I SOP EN 

ISOPEN 

ISREV^IND 

ISV3 

LABELCHK 

LABELCHK 

LABELCK 

LABELRO 

LABELSPC 

LABELSW 

LABFNO 

LABFND 

LABLD 

LAFIXTNT 

LASTCARD 

LASTINO 

LASTING 

LASTOPN 

LASTOPN 

LASTSW 

LA ST VOL 

LASTXTNT 

LASTXTNT 

LASTXTNT 

LDIOREG 

LOIOREG 

LEGALI 

LEGAL2 

LEGAL3 

LFCOI^P 

LIMITCHK 

LIMITS 

LOAOAODR 

LOAOEXIT 

LOAOEXIT 

LOAOEXIT 

LOAOEXIT 

LGADINP 

LOAD 10 

LOADh^SG 

LOADI«SG 

LOADMSG 

LOADREGO 

LOADUSER 

LOADWORK 

LOADWORK 

LOOP 

LOOP 

LCOPl 

L00P2 

MDRSBY 

MDRSBY 

MESSG17 

MESSG47 

MFCM 

MFCX 

MFl 

MF3 

MF4 



Phase 


Location 


$$BCMT02 


ECB4 


$$BCMT02 


FBDl 


$$B0MT01 


EAHl 


S$BCMT03 


EDF3 


$$BC}MT05 


EGHl 


$$BCMT03 


E0H4 


$$BCMTOT 


EJF3 


$$B0MT01 


EAFI 


$$BCMT02 


FBCl 


$$B0MT01 


EBFl 


$$BCMT02 


ECC4 


$$BCMT03 


FCA3 


$$BCMT05 


FFE2 


$$BCMT05 


FEB5 


$$B0SD06 


LUH4 


$$B0CPT1 


RBD2 


$$B0CPT2 


REG2 


$$B0CPT2 


RDF3 


$$BGSDI2 


LGC3 


$$BON'RCE 


ADA4 


$$B0SD05 


LSA2 


S$B0SDW2 


MCB3 


$$B0UR01 


ABE3 


$$BOMRCE 


ADJ4 


SSBCSDOl 


LLJ4 


$$BCSDI1 


LEA4 


$$BCSD05 


LTG5 


$$BGSDW1 


MAFl 


$$BCSDW2 


MDHl 


$$B0CP02 


QBG3 


$$BCCP11 


QEBl 


$$BCCPM1 


SE05 


$$B0CPM1 


SEB5 


$$BCCPM1 


SEB4 


$$BCCPT4 


RMGl 


$$BCSD02 


LCG5 


$$B0S002 


LDE2 


S$BCMT05 


FFC4 


$$B0S0I3 


LHJ2 


S$BCSD05 


LTJ4 


$$B0SD06 


LVGl 


$$BCSD09 


LYH4 


$$BCSDOO 


LAD2 


S^BOSDEV 


WKD3 


SSBOSDII 


LFA2 


$$BGS001 


LMG2 


$$B0SDW1 


MA04 


$$B0SD06 


LVF2 


$$BCSD06 


LUB5 


$$B0S0I1 


LEE3 


$$B0SDO7 


LWKl 


$$B0MT07 


EJB3 


$$BERPTP 


PJFl 


$$BCCPM1 


SEBl 


SSBOCPMI 


SEA2 


$$BCMT02 


FBB3 


$$BCMT07 


FHC5 


$$BCSDI3 


LHJl 


$$B0SDI1 


LEH2 


$$BCLOSP 


SCJ3 


$$B0CP03 


QCB4 


$$BCCP03 


0CC4 


$$BOCPO? 


QCC5 


S$BCCP03 


0CD4 



Label 



Phase 



Location 



MF5 


S$BOCP03 


0CE4 


MGTPOP 


$$BOCP01 


QAE3 


MGTPOP 


$$B0CP02 


0BE4 


MGTPOP 


$5;B0CP11 


0ED4 


MGTPOP 


$$80CPI2 


0FE4 


M0DE9 


$$BJC0P1 


ELE3 


M0DIFY3 


$.^B0SDI1 


LEJ3 


MONORTN 


$$BODOUE 


MJD5 


MORXTNTS 


$$B0S0I1 


LEE2 


MOVBLNK 


S$B0MT03 


EDB3 


MOVBLNK 


$$BCMT05 


rrrp-^. 


MOVE 


$$B0MT03 


EEC2 


MOVE 


$$BCMT04 


FDKl 


MOVE 


$$BCMT05 


FEJ3 


MOVEADDR 


$$B0SDW3 


MEJl 


MOVECCW 


$$B0SDI2 


LGF4 


MOVECCW 


$$B0SDW1 


MAGI 


M0VECCW9 


$$BnSDWl 


MAC5 


MOVERCM 


$$B0SD03 


LPDl 


MOVERCM 


$SB0SD08 


LXGl 


MOVESER 


$$BCCPT1 


SAJ3 


MOVESYM 


$$B0SDI1 


LFB2 


MOVESYM 


$$B0SDW1 


MAE4 


MOVEUNIT 


$$B0MT01 


EAOl 


MOVEUNIT 


$$B0SDI1 


LFB3 


MOVEUNIT 


$$B0SDW1 


MAB5 


MOVEUNIT 


$$B0SDC1 


MFH3 


MOVEUTLO 


$$B0SD06 


LUA3 


MOVLOLIM 


$$B0SD09 


LYHl 


MOVSYM 


S$B0SD01 


LBB5 


MOVSYM 


S^BOSDOl 


LBJ3 


MSGEXIT 


S$B0SD03 


LPCl 


MSGEXIT 


$$B0CPT4 


PMD3 


MSGPHASl 


$$B0S0I1 


LFE2 


MSGPHASl 


<^$BnS0I2 


LGJ2 


MSGPHASl 


$$B0SD01 


LMH2 


MSGPHASl 


SSBOSDWl 


MB 04 


MSGWRITE 


?i$BJCOPT 


EKB5 


MSGWRITE 


$$BCMTOT 


FHD4 


MSGWRITE 


MTMOD 


FJJl 


MSGWRITE 


$«B0SD03 


L0J3 


MSGWRITE 


SSB0CPT2 


RFB3 


MSGWRITE 


$?;bocp^3 


RJH4 


MSGWRITE 


$$B0CPT4 


RLD4 


MSGIOA 


$$BOMT03 


EDC4 


MSGIIA 


$$bomtoi 


EAH2 


MSG12A 


$$bomtoi 


EAB? 


MSG12A 


^$BOMT03 


EDJ5 


MSG12A 


^SB0CPT3 


RHB2 


MSG12A 


$^B0CpT4 


^LB2 


MSGI3D 


$^BOMTOI 


EAG3 


MSGI3D 


$$B0CPT4 


RMB3 


MSG14A 


$$BOMT01 


EBC2 


MSG14A 


$$B0CPT4 


RLK3 


MSG15A 


SSBOMTOl 


EAB5 


MSGI5A 


?iSB0CPT4 


RLH4 


MSG16A 


$$BOMT0I 


EAE5 


MSG16A 


$SB0CPT4 


RLH5 


MSG17D 


$$BOMT02 


ECG2 


MSG18D 


$SB0MT02 


ECF3 


MSG19A 


S.^B0MT03 


EEDl 


MSG19A 


$$BnMT06 


EHG4 


MSGI9A 


J^SB0CPT3 


PHHl 


MSG23D 


$SB0MT02 


ECA5 


MSG25D 


SSBGMT05 


EGH2 


MSG30A 


^SBCMTQl 


FAH5 



Appendix A: Label Cress-Reference List 473 



Label 

PCHBLNK 

POINTERX 

POSTOIB 

POSTDIB 

POSTEOX 

POSTOPEN 

POSTOPEN 

POSTXTNT 

POSTXTNT 

POSTXTNT 

PPRT 

PRBGN 

PRECONVT 

PRECONVT 

PRINTIN 

PROCESS 

PROCESS 

PROCESS 

PROCRUN 

PROCRUN 

PROCRUN 

PROCRUNl 

PROCRUNl 

PROCRUNl 

PROCRUN 2 

PR0CRUN2 

PROCRUN 2 

PR0CRUN2 

PTSIC 

PTl 

PT2 

PUBADR 

PUNCHBLK 

PVTLIBRY 

P50 

QTAMFLPT 
QTAMOPEN 

RCOPENl 

ROAGAIN 

RDOISK 

RODISK 

RDOISK 

RDFRkRD 

RDTPLAB 

READ 

READ 

READ 

READAGAN 

REAOBK 

READDISK 

READDISK 

READDISK 

READDISK 

READDISK 

READDISK 

READDISK 

READDISK 

READLABL 

READTAPE 

READTAPE 

READ VOL 

READ VOL I 

READVOLl 

READXTNT 



Phase 

$$BCLOSP 
$$BGS0W3 
$$B0S0I1 
$$B0SD01 
$$BOSDEV 
$$BCSDI4 
$$B0SDW1 
$$B0SDI2 
$$B0SDI4 
$$B0SDW3 
$$B0CP02 
$$B0SD01 
$$B0SD01 
$$BGSD02 
$$B0CP02 
$$B0MT06 
SSBERPTP 
$SB0CPT3 
$$B0CPT3 
$$B0CPT4 
$$BCCPT1 
$$B0CPT3 
$$B0CPT4 
$$BCCPT1 
$$B0CPT3 
$$B0CPT4 
$SB0CPT4 
SSBCCPTl 
$$BCLOSP 
SSBCLOSP 
$$BCLOSP 
$$B0CP03 
$$BCLOSP 
$$B0SDC1 
CDWCD 

$$B0SDI4 
$$B0SDI4 

$$B0SDC1 

$$B0MT06 

$$B0CPT1 

$$B0CPT2 

$$BCCPT1 

$$BC0R01 

$$BCCP-T1 

$$B0MT05 

MTMCD 

SSBCCPMl 

$$BGMT02 

$$BGMT02 

$$BCSDI1 

$$B0SDI2 

$$B0S001 

SO 

$$BCSDW1 

$$B0SDW2 

$$BCSDW3 

SSBOSDCI 

$$BGMT01 

$$B0MT01 

MTMOD 

$$BCNV0L 

SSBOSDIl 

$$BGSD02 

$$BCSD01 



Location 

SDD4 
MEA3 
LEEl 
LLFl 
MKG3 
LJHl 
MAG2 
LGF2 
LJBl 
MEC3 
0BD3 
LBBl 
LBA4 
LDE3 
0BA5 
EHFl 
PHA5 
RGFl 
RGD3 
RKF4 
SAB2 
RGF3 
RKH4 
SAC2 
RGG3 
RKJ4 
RLE2 
SAD2 
SCH4 
SCF4 
SCG4 
OCDl 
SDC3 
MFDl 
AKCl 

LJB3 
LJC2 

MFF2 

EHC4 
RBB3 
RFBl 
SBBl 
CCGl 
SAB4 
EGFl 
FJB3 
SEG4 
ECH3 
ECHl 
LFEl 
LGG5 
LMG4 
LZB2 
MBB2 
MDB3 
MEC5 
WGB4 
EBGl 
EAE3 
FJB2 
FMB3 
LFC3 
LOHl 
LLF4 



Label 

READ3TM 

READ3TM 

REENTRY 

REENTRY 

REGSAVE 

R EL NEXT 

RELNEXT 

R EL NEXT 

RELOCATE 

REOPENl 

REPCHCPl 

REPCHCP2 

REPUNCH 

REREAD 

REREADFl 

REREADl 

REREADl 

RESET 

PESETCP 

RESET EOF 

RESETIND 

RESETIND 

RESETLBL 

RESETMON 

RESETPNT 

PESET9 

RESTORE 

RESTORE 

RETMON 

RETMON 

RETMON 

RETMON 

RETMON 

RETMON 

RETMON 

RETRNPT 

RETRNPT 

RETRYMSG 

RETRYMSG 

RETURN 

RETURN 

RETURN 

RETURN 

RETURNED 

RETURNED 

RETURNED 

REWIND 

REWIND 

REWIND 

REWIND 

REWINDIT 

REWINDT 

REWRITE 

PST 

RST 

RTRYNT 

SAVDIB 

SAVE 

SAVECON 

SAVEFl 

SAVENUMB 

SAVESEO 

SAVESEQNO 

SAVEUNIT 

SAVLIMIT 



Phase L 


location 


$$B0MT01 


EAJ5 


$$BOMT01 


EBB3 


$$B0SDI2 


LGB2 


$$B0SDI3 


LHCl 


$$BOSDEV 


MKFl 


SSBOCPTl 


RABl 


$$B0CPT2 


RDC2 


$$B0CPT4 


RKC2 


$$BnMT01 


EABl 


SSBOSDCI 


MFH5 


SSBCLOSP 


SDA5 


SSBCLOSP 


SDG5 


SSBERPTN 


PGE2 


SSBERPTP 


PHC2 


$SB0SDW2 


MCC2 


SSBOSOOl 


LBF5 


$SB0SD02 


LDJ3 


SSBOMTOT 


EJC3 


<i$BOSDOO 


LAF2 


SSBOSDIl 


LEC3 


$$B0SDI3 


LHB5 


SSBOSDOl 


LMB4 


SSB0SD06 


LUE3 


SSBOSDIl 


LFE5 


$$B0SDW3 


MED3 


SSBOSDCI 


MFH2 


SSBODOUE 


MJF5 


S$B0CP'^4 


RLB5 


SSBOSDIl 


LEFl 


SSBOSOOl 


LLGl 


SSBOCPOl 


0AJ4 


SSBOCP02 


QBHl 


$SB0CP03 


QCF5 


SSBOCPll 


0DE4 


SSBCLOSP 


SCC3 


SSBJCOPl 


ELB2 


SSBJCOPl 


ELJl 


SSBERRTN 


PGK2 


SSBCLOSP 


SDHl 


SSBCMT02 


FBK5 


SSBONVOL 


FMF4 


SSBOCPTl 


RBK4 


SSBCLOSP 


SCB2 


SSBOMTOl 


EAD2 


SSBJCOPT 


EKD2 


SSBCMTOT 


FHE2 


SSBOMTOl 


EAGl 


SSB0MT03 


E0E3 


SSBCMT06 


FGH4 


SSBONVOL 


FMD3 


SSBOMT05 


EGDl 


S$BCMT06 


FGF3 


SSBERPTP 


PHJl 


$SBOCP03 


0CH3 


SSBOCPll 


00 03 


SSBJCOPT 


EKA3 


SSBOSDOO 


LAB4 


SSBONVOL 


FMBl 


SSBOSDEV 


MKBl 


SSBOSDOl 


LME2 


SSBOMRCE 


ADE3 


SSB0SDI2 


LGGl 


SSBOSOOl 


LLJ5 


SSBOSDWl 


MAB3 


SSB0SD02 


L0A4 
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Label 


Phase 


Location 


UNDEF 


$$BCSD01 


LMBl 


UNEXDEF 


$$BCSDC1 


MGFl 


UNTPCP 


$$B0CP11 


QDA3 


UNTRC 


$$B0CP02 


OBFl 


UNTRC 


$$BCCP03 


0CJ3 


UNTRC 


$$B0CP11 


0DE3 


UNTRCP 


$$BCCP01 


0AB4 


UNTRCP 


$$BCCP02 


0BC3 


UNTRCP 


$$B0CP03 


0CE3 


UNTRCP 


$$BCCP12 


QFF2 


UPDATE 


$$B0UR01 


ABE4 


UPDATE 


$SB0MT04 


EFGl 


UPDATE 


$$BGMT07 


EJD4 


UPDATE 


$$BCMT02 


FBJ5 


UPDATE 


$$BCMT04 


FDA4 


USDSTM 


$$BJCOPT 


EKB4 


USER 


$$BCMT05 


FFC5 


USER EXIT 


$SBCSDW3 


MEF3 


USEREXIT 


SSBOSDCl 


MGF3 


USEREXIT 


$$BCSDEV 


MK02 


USEREXIT 


$$BCSDEV 


MKJ3 


USERLBLS 


$$BCSD01 


LMC3 


USERRTNE 


$$BCMTOI 


FAF4 


USER TEST 


$$BGMT04 


EFJl 


USERXTNT 


$$B0SDI2 


LGKl 


VERIFY 


$$BCSD01 


LMHl 


VERIFY 


$$BGSIGN 


LNBl 


VERIFYCP 


$$B0S0G9 


LYB3 


VIA1C52 


$$BCSD05 


LTA3 


VOLSKIP 


$$BCCPT3 


RHE2 


VGLSKIP 


$$BGCPT4 


RLBl 


VOLSKIPl 


$$BGCPT3 


RHF2 


VGLSKIPl 


$$B0CPT4 


RLCl 


VCLICHK 


$$BGCPT3 


RHBl 


VOLICHK 


$$BCCPT4 


RLB3 


VOL8C0 


$$BJC0P1 


ELF4 


VOL8C0 


$$BCCPT2 


REJ4 


VTOCADDR 


$$BCSDI1 


LFF4 


VTOCAODR 


$$BCSDG2 


L0E2 


VTOCADDR 


$$BCSDW1 


MBAl 


WHDR S 


$$BCCPT1 


RBKl 


WOPKCLGS 


$$BCSDC1 


MFF5 


WCPKFILE 


$$BCMT06 


FGB3 


WCRKFILE 


$$BCSDC1 


MFEl 


WORKTEST 


$$BGSD02 


LDB2 


WRITDISK 


$$BGSD06 


LVB4 


WRITDISK 


SD 


LZB3 


WRITDISK 


$SBGSDW1 


MBB3 


WRITDISK 


SSBCSDW2 


MDB4 


WRITDISK 


$$B0SDC1 


MGB5 


WRITE 


MTMOD 


FJ84 


WRITE 


$$BDNVOL 


FME3 


WRITE 


S$BGCPM1 


SEG3 


WRITEFL 


$$BCSDC1 


MFE4 


WRITELBL 


$$BDSD06 


LUF4 


WRITETAP 


MTMOD 


FJD2 


WRITHOR 


$$B0MT06 


EHA5 


WRITf'K 


$$BCMT06 


EHD5 


WRITTM 


$$BJC0P1 


ELG4 


WROMGPAK 


$$B0SD02 


L0D2 


WTDEVED 


$$BCLOSP 


SDH3 


XTNTCONV 


$$B0SD01 


LBC4 


XTNTCK 


$$BCSD01 


LBG2 



Label 



Phase 



Location 



XTNTOK 


$$BO$D02 


LCD3 


XTNTOKAY 


$$B0SD02 


L0E5 


XYZ 


$$BERPTP 


PHEl 


YESLDPT 


$$B0MT03 


E0A4 


YESOPEN 


$$B0MT03 


EEAl 


YESREWND 


$$BOMT06 


EHGl 


YESTM 


SSBOMTOl 


EAH3 
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APPENDIX B: MESSAGE CRCSS-REFERENCE LIST 



For further detailed inforiraticn en these iressages, see DQS/ VS Messages , GC33-5379. 



r T- 

Message | 
Number j 



h 



Issuing 
Routine 



Message 



40001 j $$BERRTN 



RETRY 



UllOA I 
I 



$$ECMT03 
$$B0CPT3 



NO VCLl LEL FOUND TLEL=xxxxxx 
filenaire SYSxxx=cuu 



aim I 

I 



$$ECMT01 
$$ECCPT4 



NO VCLl LEL FOUND filenaire 
SYSxxx=cuu 



4112A 



$$ECMT01 
$$BCMT03 
$$ECCPT3 
$$E0CPT4 



VOL SERIAL NO, ERROR TLEL=xxxxxx 
filenaire SYSxxx=cuu 



+- 

4113D I 



$$ECMT01 
$$B0CPT4 



NO HERl LABEL FOUND filename 
SYSxxx=ci:u 



ailUA I 
I 



$$EOMT01 
$$BCCPT4 



FILE SEQ NO, ERROR filename 
SYSxxx=cuu 



ail5A I 
I 



$$EOMT01 
$$B0CPT4 



FILE SER. NO. ERROR TLBL=xxxxxx 
filename SYSxxx=cuu 



4116A I 
I 



$$EOMT01 
$$BCCPT4 



VOLUME SEQ. NO. ERROR filename 
SYSxxx=cuu 



U117D I 
I 



$$ECMT02 
$$BOMT05 



NO TM FOUND ON READEK filename 
SYSxxx=cuu 



4118D 



S$ECMT02 



FILE ID ERROR, READBK filename SYSxxx=cuu 



ail9A 



$$BOMT03 
$$ECMT06 
$$BCCPT3 



FILE UNEXPIRED filename 
SYSxxx=cuu 



U120I 



$$EOMT03 



TAPE POSITIONED WRONG filename SYSxxx=cuu 



ai21A I $$BCMT07 



NO ALTERN DRIVE ASSGN SYSxxx=cuu 



41221 I $$ECMT07 



EOV ENCOUNTERED SYSxxx=CUU 



4123D I $$BOMT02 



WRONG PCSITK, READBK filename SYSxxx=cuu 



41241 j $$BCMT04 



TOO MANY UHL'S filename SYSxxx=cuu 



4125D 



$$BOMT05 



VOLl LBL FCUND filename SYSxxx=cuu 



41261 j $$BCMT02 



EOV ENCOUNTERED filename SY£xxx=cuu 



4127A 



$$BCMT05 



EOV WHILE WRITING EOF 



4130A I 

I JL. 



$$ECMT01 I EOF CR ECV INQUIRY filename SYSxxx=cuu 

.-, J. . -. 



Figure 53. Message cross reference list (1 cf 5) 
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Message | Issuing | Message 
Number | Routine | 

43041 1 $$BCSDI1 1 NO FORMAT 4 LABEL IN VTCC 


44041 1 $$ECSD02 | NO RECORD FOUND 
49041 1 $$B0SDW1 | 


43061 1 $$E0SDI1 1 NO STANDARD VOL 1 LABEL 

1 \ or 

44061 1 $$B0SD02 | NO RECORD FOUND 

45061 1 $$E0SDC1 | 


49061 1 $$BCSDW1 | 


43071 1 $$E0SDI1 1 NO RECORD FOUND 


44071 1 $$B0SD01 | 
49071 1 $$ECSDW1 | 


4308D 1 $$B0SDI3 | NO UTIO FIIEMARK FOUND 

-j- ■) or 

4408D 1 $$ECSD06 j NO RECORD FOUND 
« _! _ ^_ j. _ 


42091 1 $$B0SD03 | NO RECORD FOUND 
j $$E0SD08 1 

44091 1 $$B0SD03 | 
1 $$ECSD03 1 
1 $$B0SD08 1 


47091 1 $$ECSD08 | 


49091 1 $$B0SD03 | 
1 $$ECSD03 1 
1 $$B0SD08 1 

1 _ 1 « - « _ — -. -. — 


— ^ -j. — — — - - — - - « - - — - — 

4n20I 1 $$ECSD00 | TAPE POSITIONED WRONG filename SYSxxx=cuu 
+ + 

4329D 1 $$B3540I j EXTENTS NOT EXHAUSTED 
+ 4 

4330D 1 $$ECSDI2 | FMTl-DLAE UNEQUAL 


-^ -j. — — — 

4331D 1 $$B0SDI2 j VOLUNE SEQUENCE ERROR 

+ 4 

43321 1 $$E0DI05 | VOLUME SEQUENCE ERROR 

1 J. — « — _ - — « -. — _ 


- -.^- - -j. — — — - — - — 

4433A 1 $$E0SD08 | EQUAL FILE ID IN VTCC 


4733A 1 $$ECSD08 | 
4933A 1 $$BCSD08 | 

4 4 

44341 1 $$E0SD05 | CURRENT FILE LBL DELETED 

4 4 



|. 4 4 . 

I 49361 I $$B0SDW3 | NO KCRE AVAIL/MATCH XTNT 

L X J. 



Figure 53. Message cross reference list (3 of 5), 
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Message 

Number 



Issuing 
Routine 



Message 



44651 



$$E0DI02 



EQUAL FILE LABEL IN VTOC 



4366A 



$$B0SDI2 



1 TRACK USER LBL EXTENT 



4466A 



$$ECSD01 



4477A 



$$B0SD07 



EXTENT ENTR^ ERROR — RETRY 



48801 



$$ECE0V1 



INVALID FILE TYPE 



48811 



$$BCE0V1 



NO LABEL INFORMATION 



43831 



$$ECSDI1 



INVALID LOGICAL UNIT 



44831 



$$B0SD01 



49831 



$$E0SDW1 



4884D 



$$BOCP02 
$$E0CP11 
$$B0CP12 



NEED FILE PROTECT RING 



48871 



$$EERRTN 



SYS FILE EXTENT EXCEEDED 



48881 



$$BERRTN 



EOF CN SYSTEM FILE 



44971 



$$E0SD03 



OVLAP EXPIRED SECRD FILE 



4399D 



$$B0SDI2 



DATA SECURED FILE ACCESSED 



4MR1I 



MRMOD 



EXTERNAL INTERRUPT I/O ERROR filename SYSxxx=cuu 



4MR2I 



MRMOD 



SCU NCT CPERATICNAL filename SYSxxx=cuu 



4P01I 



$$EERPTR 



DATA CHECK SYSxxx=cuu 



4P02D 



$$BERPTR I DATA CHECK SYSxxx=CUU 

X J. 



Figure 53. Message cross reference list (5 of 5), 
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APPENDIX C: CONTROL CODES 



CTLCHR=ASA 



Pocket Selection on 2540 



A control character must appear in each 
logical record if the ASA cpticn is chcsen. 
If the control character for the printer is 
not validy a message is given and the job 
is canceled. If the control character for 
the card punch is not V or W^ the card is 
selected into pocket 1. The cedes are as 
follows: 



Code 

(blank) 


+ 
1 
2 
3 

a 

5 
6 
7 
8 
9 
A 

E 

C 

V 



Interpretation 

Space one line befcre printing 
Space two lines before printing 
Space three lines before printing 
Suppress space before printing 
Skip to channel 1 befcre printing 

2 

3 

4 

5 

6 

7 
Skip to channel 8 before printing 
Skip to channel 9 befcre printing 
Skip to channel 10 before 

printing 
Skip to channel 11 before 

printing 
Skip to channel 12 before 

printing 
Select stacker 1 
Select stacker 2 



Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 
Skip to channel 



befcre printing 
befcre printing 
befcre printing 
befcre printing 
befcre printing 
befcre printing 



CTLCHR=YES 



The control character is. the coirirand-code 
portion of the System./360 Channel Coirm.and 
Word used in printing a line or spacing the 
forms. If the character is not one of the 
following characters, unpredictable events 
will occur. 



8-Eit 
Code 



Punch 
Combination 



Function 



Stacker Selection on 1442 and 2596 



10000001 12,0,1 
11000001 12,1 



Select into stacker 1 
Select into stacker 2 



OOOOCOOl 12,9,1 Select intc pocket 1 

01000001 12,0,9,1 Select intc pocket 2 
10000001 12,0,1 Select intc pocket 3 



Stacker Selection on 2520, 3504^ 3505, 3525 

00000001 12,9,1 Select intc stacker 1 
01000001 12,0,9,1 Select intc stacker 2 

Printer Ccrtrol (not for 3525) 



OOOOCOOl 
COOOlOOl 
00010001 
00011001 
10001001 

10010001 



10100001 



12,9,1 

12,9,8,1 

11,9,1 

llr9,8,l 

12,0,9 

12,11,1 



10011001 12,11,9 



11,0,1 



10101001 11,0,9 



10110001 12,11,0,1 



10111001 12,11,0,9 



Write (no autom.atic 
space) 

Write and space 1 
line after printing 

Write and space 2 
lines after printing 

Write and space 3 
lines after printing 

Write and skip to 
channel 1 after 
printing 

Write and skip to 
channel 2 after 
printing 

Write and skip to 
channel 3 after 
printing 

Write and skip to 
channel 4 after 
printing 

Write and skip to 
channel 5 after 
printing 

Write and skip to 
channel 6 after 
printing 

Write and skip to 
channel 7 after 
printing 
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alternate switching 

EOV, tape 9 5 

system units, tape 99 
Am. Nat. Std. COBOL, input file, 

closing 98 
ANSI control codes 4 85 
ASCII=YES, DTFCP macro parameter 164 
associated files 22, 23, 49 



B 

BSI (buffer status indicator) 30 

buffer (MICR) 31 

buffer status indicator (BSI) 30 

bypass checkpoint records routine, MTMOD 88 

detail charts 267, 274 
byte, sync 39 



card device files (CD) 14 
CDMOD 22 

CNTRL macro 22 

CNTRL macro, detail chart 209 
GET macro 22 

GET macro, detail chart 210 
PUT macro 23 

PUT macro, detail chart 213 
channel programs, sequential DASD 128 
CHECK macro 
MRMOD 30 

MRMOD, detail chart 220 
MTMOD workfile 84 
MTMOD workfile, detail chart 255 
SDMODW 14 3 

SDMODW, detail chart 343 
checkpoint records, bypassing MTMOD 88 
close routines 

alternate switching for EOV 95 

alternate switching system units 99 

diskette 192 

DTFCP/DTFDI tape files 176 

DUMODFO 187 

EOF backward 96 

EOF/EOV input forward 95 

EOV output forward 9 7 

magnetic tape except workfiles 9 7 

MICR 33 

optical reader files 45 

paper tape files 50 

punch files 177 

SDMODFO 

no truncation 133 

no truncation, detail chart 304 

truncation 132 

truncation, detail chart 304 
SDMODFU 

no truncation 135 

no truncation, detail chart 309 

truncation 135 

truncation, detail chart 306 
SDMODUO 141 

SDMODUO, detail chart 333 
SDMODVO 137 
SDMODVO, detail chart 320 



INDEX 

SDMODVU 139 

SDMODVU, detail chart 328 

SDMODW 143 

SDMODW, detail chart 342 

unit record files 14 

workfiles 98 
close sequential DASD 

all files 146 

FEOVD specified 153 

free track function 152 

free track function, detail chart 378 

input and output 152 

input and output, detail chart 376 
CNTRL macro 

CDMOD 22 

CDMOD, detail chart 209 

DRMOD 43 

DRMOD, detail chart 239 

fixed-length records 135 

fixed-length records, detail chart 312 
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